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Preface 


Document Objectives 

This manual describes the interface between compiled programs written in higher-level languages 
and the procedures in the Run-Time Library that support these programs. 

For each language support procedure, this manual includes a functional description, the calling 
sequence, appropriate examples, and access instructions for some VAX—11 supported languages. This 
manual does not duplicate the descriptions of higher-level language statements and procedures con¬ 
tained in the language reference manuals and user's guides. 

This release of the VAX-11 Run-Time Library Language Support Reference Manual documents the 
support procedures for BASIC, COBOL, FORTRAN, PASCAL, and PL /I. Future releases of this man¬ 
ual will document additional native mode languages. 

Intended Audience 

This manual addresses users who develop compilers and those who want to use or extend the 
services provided by the language support procedures, including: 

• Individuals writing run-time support procedures for their own run-time library 

• Software support specialists for VAX-11 layered language products 

• System programmers desiring to understand the generated code in order to optimize or debug their 
programs 

• Programmers working in a multilanguage environment 

The manual does not describe internal routines or data structures used by the Run-Time Library 
language support procedures. 

Document Structure 

This manual is separated into divisions. Each division has its own title page and table of contents. An 
index to the entire manual follows the last language-specific division. 

The first division contains generic information on VAX/VMS data types and parameter passing mech¬ 
anisms, RMS file structure, and VAX error handling facilities. 

The other divisions contain descriptions of the language-specific support procedures and information 
about calling and writing user programs that access these procedures. 
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Associated Documents 

The following documents comprise the rest of the VAX-1 1 Run-Time Library documentation set: 

• VAX-11 Run-Time Library User's Guide 

This manual describes the capabilities of the Run-Time Library and shareable procedure libraries 
in general. It tells how programs link with the Run-Time Library, how the library is organized, and 
how to call library procedures explicitly. 

• VAX-11 Run-Time Library Reference Manual 

This manual describes the procedures in the library that perform general utility functions. These 
procedures are language-independent. 

• VAX-11 Guide to Creating Modular Library Procedures 

This manual tells how to write modular procedures and put them into a procedure library. 

The VAX—11 Run-Time Library Language Support Reference Manual describes procedures that imple¬ 
ment semantics of the VAX-11 languages. For complete descriptions of these languages, see the 
appropriate user's guides and language reference manuals for: 

• VAX-11 BASIC 

• VAX-11 COBOL 

• VAX-11 FORTRAN 

• VAX-11 PASCAL 

• VAX-11 PL/I 


For a complete list of all VAX—11 documents, including a brief description of each, see the VAX-11 
Information Directory and Index. 

Conventions 

Unless otherwise noted: 

• All numeric values are represented in decimal notation. 

• All commands terminate with a carriage return. 

Lowercase characters indicate variables; uppercase characters indicate literal information, which you 
must enter exactly as shown. 

Brackets ([ ]) in procedure descriptions denote optional arguments. An equal sign ( = ) after an 
optional parameter indicates the default value if you omit the parameter. 

When followed by an ellipsis (...), a parameter can be repeated one or more times. 

For JSB entry points, the symbol in parentheses following the argument (for example, Rn) indicates the 
register in which the argument is passed. 


VI 
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Unless otherwise specified, the term: 

• MACRO means VAX-11 MACRO. 

• BLISS means BLISS-32. 

• BASIC means VAX-11 BASIC. 

• COBOL means VAX-11 COBOL. 

• FORTRAN means VAX-11 FORTRAN. 

• PASCAL means VAX-11 PASCAL V2 or later. 

• PL/I means VAX-11 PL/I. 

• Run-Time Library means VAX—11 Run-Time Library. 

• Linker means VAX—11 Linker. 
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This division contains language-independent information on VAX/VMS 
data types and parameter passing mechanisms, RMS file structure, and 
VAX error handling facilities. This division is intended for use by 
multilanguage programmers. The material in this division is not 
introductory. 


Generic Division 
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Introduction 


This division contains introductory information necessary for using the language support procedures 
described in the language-specific divisions. 

Chapter 1 describes the data types and parameter passing mechanisms supported by each language. 
Use the tables in Chapter 1 to ensure compatibility between your calling program and a called 
procedure. 

Chapter 2 describes the interface between each language and the VAX-11 Record Management 
Services (RMS): 

• Shows how RMS functions are related to FORTRAN, BASIC, COBOL, and PASCAL language 
statements. 

• Shows how RMS file attributes are related to language statements in each language. 

• Shows how FORTRAN, BASIC, and PASCAL language semantics for a file are related to the con¬ 
tents of the File Access Block (FAB), Record Access Block (RAB), and Extended Attributes Block 
(XAB). 

Chapter 3 describes how each language uses the VAX-11 condition handling facility. 
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1.2.3A VAX-11 PASCAL 


By default, VAX-11 PASCAL passes most parameters by reference. In some cases, however, a func¬ 
tion reference or a call to a non—PASCAL routine requires arguments in a different form. Therefore, 
VAX-11 PASCAL provides these mechanism specifiers: 

1. %IMMED specifies the by immediate value mechanism. 

2. %REF specifies the by reference mechanism. 

3. %DESCR specifies the by descriptor mechanism. 

4. %STDESCR specifies the by descriptor mechanism for fixed-length string descriptors. 

The VAX—11 PASCAL User's Guide includes detailed descriptions of these mechanism specifiers and 
the rules for their use. See also the VAX-11 PASCAL Language Reference Manual. 
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1.2.4 VAX-11 PL/I 


PL/I passes all arguments by reference except character strings and arrays with variable extents. You 
only need to specify the data type in the parameter descriptor for an argument to be passed by 
reference. When an argument is passed by reference, PL/I places the address of the actual argument 
in the argument list. This address can be interpreted as a pointer value. Using the built-in function 
ADDR, you can explicitly specify a pointer value as an argument for data to be passed by reference. 

You must use the VALUE attribute in a parameter declaration for an argument to be passed by 
immediate value. Similarly, you must use the ANY attribute in a parameter declaration for an argu¬ 
ment to be passed by descriptor, along with the DESCRIPTOR(arg) built-in function in the actual 
argument lists. 


1.3 Data Type and Passing Mechanism Tables 

Table GEN-1 gives a brief summary of the support that each language gives to the VAX-11 data 
types, as defined by the VAX-11 Procedure Calling Standard. This table shows which languages 
support which data types and the default passing mechanism for each supported data type. 

Tables GEN-2 through GEN-13 give the same information in more detail. Given a standard data 
type, these tables indicate whether the language supports it, what passing mechanism the language 
uses by default to pass the data type, and what passing mechanism(s) you can force explicitly. In the 
case of passing mechanisms that are supported by extensions to the language, the tables also give the 
language keyword that forces the passing mechanism. These language keywords appear in uppercase 
letters. Finally, the tables tell you whether the VAX-11 Procedure Calling Standard permits a particu¬ 
lar combination of data type and passing mechanism. 

Tables GEN-2 through GEN-17 each contain two data sets: calling procedure and called procedure. 
The calling procedure column summarizes the options when the calling program is written in the 
specified language. The called procedure column contains the options when the called program is 
written in the specified language. 

Tables GEN-14 through GEN-1 7 give similar information for data passed in arrays. They indicate the 
default passing mechanism for passing each supported data type in an array, and the passing mecha- 
nism(s) supported by extension to the language. Note that the tables for arrays include only the data 
types supported by each language, while the tables for data passed by element contain all the 
VAX-11 data types. 

For example, looking at Table GEN—2, we see that BASIC passes a VAX—11 word data type when you 
specify WORD as the data type. The default passing mechanism is by reference. By an extension to 
the language, however, VAX-11 BASIC allows you to pass a word by immediate value, if you specify 
BY VALUE, or by descriptor, if you specify BY DESC. In the latter case, BASIC uses a scalar and string 
descriptor. That is, the class field in the descriptor contains DSC$K_CLASS_S, equivalent to a value 
of one. See Appendix C of the VAX—/ 7 Run-Time Library Reference Manual for explanations of the 
descriptor classes. 
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Table GEN-1: VAX-11 Data Types Supported by VAX-11 Languages 
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VAX-11 COBOL uses COBOL intermediate temporary data type internally to store i 
results of arithmetic operations. You cannot pass parameters of CIT data type. 










Table GEN-2: VAX-11 BASIC - Atomic Data Types 
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Table GEN-2: VAX-11 BASIC - Atomic Data Types (Cont.) 



Not supported by BASIC 




















Table GEN—4: VAX-11 BASIC - Miscellaneous Data Types 
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B (Byte Signed subrange of type %IMMED Default %DESCR — Default %DESCR 

Integer) INTEGER with size of 8 Class_S Class_S 




















Table GEN-1 OA: VAX-11 PASCAL - Atomic Data Types (Cont.) 



Data type may be simulated by declaring a record structure with the same storage layout and passing this structure by referen 









Table GEN-1 OB: VAX-11 PASCAL - String Data Types 
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Table GEN-1 OC: VAX-11 PASCAL - Miscellaneous Data Types 
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• Sequential organization 

ORGANIZATION = 'SEQUENTIAL'. Sequential is the default organizational type for new 
FORTRAN files. 

• Relative organization 
ORGANIZATION = 'RELATIVE'. 

• Indexed organization 

ORGANIZATION = 'INDEXED'. You can create an indexed file with the OPEN statement or with 
the VAX—11 RMS EDIT/FDL Utility. For further information, see the VAX—11 FORTRAN User's 
Guide. 

2.1.4.2 VAX-11 FORTRAN Record Access Modes — VAX-11 FORTRAN supports RMS sequential 
access, random access by key, and dynamic access. The ACCESS keyword in the OPEN statement 
determines the access mode. 

• Sequential access 

You can select the sequential access mode for any type of file by setting ACCESS = 'SEQUENTIAL' 
or ACCESS — 'APPEND'. 'SEQUENTIAL' is the default access mode for all file types. ACCESS = 
'APPEND' implies sequential access and positions the next record pointer after the last record of the 
file. 

• Random access by key 

For relative and sequential files, random access by key is called direct access in VAX-11 
FORTRAN. You select direct access by using ACCESS = 'DIRECT' in the OPEN statement. For 
relative files, the key is the relative record number. You can use direct access on sequential files 
only when the records are fixed length. In this case, the key is the cell number. 

For indexed files, RMS random access by key corresponds to VAX-11 FORTRAN keyed access. 
ACCESS = 'KEYED' indicates keyed access. Then each READ statement contains the key value for 
the record to be accessed. 

• Dynamic access 

When you select ACCESS = 'KEYED', you can also access files sequentially. Thus you can use a 
combination of random access by key and sequential access. 

2.1.4.3 VAX-11 FORTRAN Record Formats— VAX-11 FORTRAN supports the RMS fixed-length and 
variable-length formats. It also supports segmented record format, which is specific to FORTRAN. 
The RECORDTYPE keyword in the OPEN statement establishes the record format. 

• Fixed-length 
RECORDTYPE = 'FIXED'. 

• Variable-length 
RECORDTYPE = 'VARIABLE'. 

• Segmented 

RECORDTYPE = 'SEGMENTED'. A segmented record is a single logical record consisting of one or 
more variable-length, unformatted records in a sequentially organized file. Because a segmented 
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record can be any length, each variable-length record within the segmented record contains control 
information in the first two bytes of data to indicate whether it is the first segment in the segmented 
record, the last segment, the only segment, or none of these. This control information is specific to 
FORTRAN and is not supported by RMS for other languages. For more information, see the VAX-11 
FORTRAN User's Guide. 

2.1.4.4 VAX-11 FORTRAN Record Attributes — VAX-11 FORTRAN has three types of carriage- 
control processing for printing files. You select the desired process using the CARRIAGECONTROL 
keyword in the OPEN statement. 

• FORTRAN carriage control 

CARRIAGECONTROL = 'FORTRAN' specifies the first character in the print buffer is the 
FORTRAN carriage-control character. This is the default for formatted files. 

• Implied carriage control 

CARRIAGECONTROL = 'LIST' indicates single spacing between records. 

• No implied carriage control 

CARRIAGECONTROL = 'NONE' specifies no carriage control. 

• Block boundaries 

By default, FORTRAN records cross block boundaries. When you use the NOSPANBLOCKS key¬ 
word in an OPEN statement, the records of your file will not cross block boundaries. 

2.1.4A Files in VAX-11 PASCAL 

This section describes how VAX—11 PASCAL relates to the RMS file characteristics described in 
Section 2.1. 

In VAX-11 PASCAL, you set the characteristics of a file by passing parameters to the OPEN 
procedure. 

2.1.4A.1 VAX-11 PASCAL File Organization — VAX-11 PASCAL allows the standard RMS file organi¬ 
zation types: sequential, relative, and indexed. The ORGANIZATON parameter of the OPEN proce¬ 
dure establishes the organization of a PASCAL file; if there is no ORGANIZATION parameter, the 
default is sequential. 

• Sequential organization 

ORGANIZATION := SEQUENTIAL. Sequential is the default for all new files; for existing files, the 
file's organization is used. 

• Relative organization 
ORGANIZATION := RELATIVE. 

• Indexed organization 
ORGANIZATION := INDEXED. 
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2.1.4A.2 VAX-11 PASCAL Record Access Modes — VAX—11 PASCAL allows sequential, direct, or 
keyed access to the records in a file. 

• Sequential access 

You can select sequential access for any type of file by specifying ACCESS-METHOD : = 
SEQUENTIAL. All files are accessed sequentially unless you specify a different access method in the 
call to the OPEN procedure. 

• Direct access 

You can locate records directly in files with relative organization or with sequential organization 
when the records are fixed length by specifying ACCESS—METHOD : = DIRECT. 

• Keyed access 

Specifying ACCESS-METHOD : = KEYED allows you to access records in files with indexed organi¬ 
zation either sequentially or according to a key value you supply. 


2.1.4A.3 VAX-11 PASCAL Record Formats — VAX-11 PASCAL supports both fixed-length and 
variable-length formats. You specify the record format by specifying the RECORD-TYPE parameter 
with the OPEN procedure. 

• Fixed-length 

RECORD-TYPE := FIXED. Fixed-length records are the default for all new files except FILE OF 
VARYING and new text files. 

• Variable-length 

RECORD-TYPE := VARIABLE. Variable-length records are the default for all new text files and 
FILE OF VARYING. 

• Stream 

Although there is no PASCAL language syntax to specify the stream record type, you can access an 
existing stream record type file from PASCAL by omitting the RECORD—TYPE parameter. The file 
will be treated as if it had variable-length records. 


2.1.4A.4 VAX-11 PASCAL Record Attributes — VAX-11 PASCAL allows three types of carriage- 
control processing for files. You select the carriage control using the CARRIAGE-CONTROL parame¬ 
ter of the OPEN procedure. 

• FORTRAN carriage control 

CARRIAGE-CONTROL := FORTRAN indicates that the first character of every output line is a 
carriage-control character. 

• Implied carriage control 

CARRIAGE-CONTROL : = LIST indicates single spacing between components. LIST is the default 
option for all text files. 
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• No implied carriage control 

CARRIAGE-CONTROL := NONE specifies that the file has no carriage control. NONE is the 
default option for all files except text files and files of type VARYING OF CHAR. 

2.1.5 Files in VAX-11 PL/I 

This section describes how VAX—11 PL/I uses the RMS file characteristics discussed in Section 2.1. 

2.1.5.1 VAX-11 PL/I File Organization — VAX-11 PL/I supports the standard RMS organizational 
types: sequential, relative, and indexed. With the exception of indexed files, you determine the 
organization of a PL/I file by selecting the access mode when you open the file. When you open a 
file with the OUTPUT attribute, PL/I creates a file with the organization that corresponds to the 
access mode you have specified. 

• Sequential organization 

When a PL/I program opens a file with the SEQUENTIAL and OUTPUT attributes, VAX-11 PL/I 
normally creates a new file with sequential organization and saves the previous version. Each 
WRITE statement then adds a new record to the end of the file. 

• Relative organization 

Relative file organization is the default organization for files that are opened with the KEYED or 
DIRECT attribute. When you open a file with the KEYED or DIRECT attribute and the OUTPUT 
attribute, VAX—11 PL/I creates a relative file. 

• Indexed organization 

PL/I indexed sequential file organization corresponds to the RMS concept of indexed file organiza¬ 
tion. To create an indexed sequential file for VAX—11 PL/I, you must use the VAX—11 RMS 
EDIT/FDL Utility. Once you have created an indexed sequential file with the VAX-11 RMS 
EDIT/FDL Utility, you can write records to it by opening it with the attributes KEYED SEQUENTIAL 
UPDATE and using PL/I WRITE statements. For more information, see the VAX—11 PL/1 User's 
Guide. 
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Table GEN-19: Language Keywords and RMS File Structures 
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Notes 


1. In VAX—11 BASIC and COBOL, you can create indexed files using the languages' semantics or 
the VAX—11 RMS EDIT/FDL Utility. In VAX-11 FORTRAN, you can create simple indexed files 
with the OPEN statement; for more complex files, use the VAX-11 RMS EDIT/FDL Utility (see 
the VAX-11 FORTRAN User's Guide). In VAX-11 PL/I, you must use the VAX-11 RMS EDIT/ 
FDL Utility to create an indexed file. You can then enter records in the file by using the OPEN 
statement with the attributes KEYED SEQUENTIAL UPDATE. 

2. For compatibility with PDP-11 BASIC—PLUS—2, VAX-11 BASIC supports an organizational type 
called block I/O. A block I/O file is a virtual file array consisting of 512-byte blocks. It is 
declared with the VIRTUAL keyword in the OPEN statement. 

3. FORTRAN supports segmented records (RECORDTYPE = 'SEGMENTED'). See Section 2.1.4.3. 

2.2 VAX-11 Language I/O Operations and RMS Functions 

This section consists of tables showing how each language's statements relate to RMS functions. 

Table GEN—20 shows which BASIC I/O statements invoke RMS system services. 

Table GEN—20: BASIC I/O Statements and RMS Functions 


BASIC Statement 

RMS Function 

GET 

$GET 

PUT 

$PUT 

FIND 

$FIND 

DELETE 

$DELETE 

UPDATE 

$UPDATE 

RESTORE 

SREWIND 

SCRATCH 

$TRUNCATE 

FREE 

$FREE 

UNLOCK 

$RELEASE 


Notes 

1. The first PRINT or INPUT statement to channel 0 causes an $OPEN and $CONNECT to 
SYS$INPUT and SYS$OUTPUT. 

2. If a $DELETE, $FIND, $FREE, $GET, $PUT, or $UPDATE fails because the record stream is 
active, the function is retried after a $WAIT. 
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Table GEN—21 shows which COBOL I/O statements invoke RMS system services. 

Table GEN-21: COBOL I/O Statements and RMS Functions 


COBOL Statement 

RMS Function 

ACCEPT 

$GET 

CLOSE 

$CLOSE, {DISCONNECT, $NXTVOL 

DELETE 

$FIND, $DELETE (See Note) 

OPEN 

{OPEN or {CREATE, {CONNECT 

READ 

{GET 

REWRITE 

$FIND, $UPDATE (See Note) 

WRITE 

$PUT 

DISPLAY 

$PUT 

START 

$FIND 

UNLOCK 

SRELEASE, $FREE 


Note 

$FIND is done only when the DELETE or REWRITE is being performed during random 
access. 

Table GEN-22 shows which FORTRAN I/O statements and keywords invoke RMS system services. 

Table GEN-22: FORTRAN I/O Statements and RMS Functions 


FORTRAN Statement 

RMS Function 

See Note 
Number: 

ACCEPT 

$GET 

5 

BACKSPACE 

{REWIND, followed by one or 
more {GET operations if target 
record is not the first record 


CLOSE 

$CLOSE 


DEFINE FILE 

None 


DELETE(u) 

$DELETE 

5 

DELETE(u,REC = r) 

$FIND, SDELETE 

5 

ENDFILE 

$PUT 

2,5 

FIND 

{FIND 

1,5 

INQUIRE (by file) 

SPARSE, SSEARCH, $OPEN, $CLOSE 


INQUIRE (by unit) 

None 



(continued on next page) 
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Table GEN-22: FORTRAN I/O Statements and RMS Functions (Cont.) 


FORTRAN Statement 

RMS Function 

See Note 
Number: 

OPEN 

$OPEN or $CREATE, $CONNECT 


OPEN (with USEROPEN) 

None 


OPEN (on connected 
unit) 

SPARSE, SSEARCH, $CLOSE, 

$OPEN or SCREATE, $CONNECT 

8 

PRINT 

$PUT 

4,5 

READ 

$GET 

1,5,7 

READ (internal file) 

None 


REWIND 

$REWIND 


REWRITE 

$ UPDATE 

5 

TYPE 

$PUT 

4,5 

UNLOCK 

$FREE 

5 

WRITE 

$PUT 

2,5,7 

WRITE (internal file) 

None 



Notes 

1. If the unit is not already open, the first READ or FIND statement on a logical unit invokes an 
$OPEN and a $CONNECT. 

2. If the unit is not already open, the first WRITE or ENDFILE statement on a logical unit causes a 
$CREATE and $CONNECT. 

3. The first ACCEPT statement in a program causes an $OPEN and $CONNECT. 

4. The first PRINT statement in a program and the first TYPE statement in a program each cause a 
$CREATE and $CONNECT. 

5. If a SDELETE, $FIND, $FREE, $GET, $PUT, or $ UPDATE fails because the record stream is 
active, the function is retried after a $WAIT. 

6. If RECORDTYPE is explicitly or implicitly 'SEGMENTED', an unformatted sequential READ state¬ 
ment can cause more than one $GET. 

7. If RECORDTYPE is explicitly or implicitly 'SEGMENTED', an unformatted sequential WRITE state¬ 
ment can cause more than one $PUT. 

8. If the specified file name is the same as the name of the currently open file, only the BLANK = 
parameter is changed; otherwise, the current file is closed and the new file opened. 
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Table GEN-22A shows which RMS system services PASCAL I/O routines may invoke. 

Table GEN-22A: PASCAL I/O Statements and RMS Functions 



Notes 

1. May implicitly open file INPUT or OUTPUT. See OPEN for RMS operations. 

2. If delayed device access (lazy lookahead) is in progress on the file, a $GET will be done, and 
all open text files for which prompting is enabled may have a $PUT performed for them. 

3. If the file is in Generation mode, a $PUT may also be performed. 
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4. If the file is a text file opened on a terminal, and if the carriage control is LIST and no 
USER—ACTION procedure was specified, the file is closed and reopened with two-byte VFC 
record type and PRN carriage control to allow prompting. 

5. Opens file if it is not already open. See OPEN for RMS operations. 
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2.3 The Setting of RMS FAB, RAB, and XAB Fields 

VAX-11 RMS uses data structures called control blocks to contain information about your files and 
the records they contain. 

The File Access Block (FAB) is a user control block that describes a particular file. The fields of the 
FAB contain file-related information, such as: 

• The name of the file 

• The file organization 

• The record format 

• Disk storage space allocation information 

The Record Access Block (RAB) is the second type of user control block that you allocate, either at 
assembly time or run time, to communicate with VAX—11 RMS. Each RAB is linked to a FAB, and 
represents a record request stream on the file associated with the FAB. Once you establish the link, 
you can use the fields of the RAB to define for VAX-11 RMS the next logical record you want to 
access and various characteristics about that record. 

The Extended Attribute Blocks (XABs) are optional control blocks, which you can use to communicate 
to VAX—11 RMS any file attributes beyond those expressed in the FAB. You use these control blocks 
only when you want to specify exactly, or retrieve information on, the attributes handled by a 
particular XAB. 

The Run-Time Library initializes the RMS FAB, RAB, and XAB fields in response to the OPEN key¬ 
words or to zero. 

Tables GEN—23 to GEN—25 specify what bits are set in these control blocks when you open a file in 
VAX—11 FORTRAN, BASIC, and PASCAL. You determine the contents of each field with the listed 
keywords, or you can use the USEROPEN keyword (see Section 2.4). 


September 1982 


File Organizations and Record Formats 


GEN 43 


Table GEN-23: The Setting of VAX-11 RMS File Access Block Fields 
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Table GEN-23: The Setting of VAX-11 RMS File Access Block Fields (Cont.) 
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Table GEN-23: The Setting of VAX-tl RMS File Access Block Fields (Cont.) 
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Table GEN-25: The Setting of VAX-11 RMS Extended Attribute Block Fields 


Field 

Name 

BASIC OPEN 

Keyword & Value 

FORTRAN and PASCAL OPEN 
Keyword & Value 

XAB$B_DTP 

Data type of the key 

Set to data type of the key 

Set to data type of the key 

XAB$B_FLG 

XAB$V_CHG 

XAB$V_DUP 

Key options flag 
Changes allowed 
Duplicates allowed 

As specified by CHANGES 

As specified by DUPLICATES 

0 if key is 0, else 1 

0 if key is 0, else 1 

XAB$W_POS0 

Key position 

Position of key in indexed 
file record 

Position of key in indexed 
file record 

XAB$B_REF 

Key of reference 

Primary key is zero, 
first alternate key is one, 
second alternate key is two, 
and so on... 

Primary key is zero, 
first alternate key is one, 
second alternate key is two, 
and so on... 

XAB$B_SIZ0 

Key size 

Size of key 

Size of key 


2.4 USEROPEN Keyword 

The USEROPEN keyword in an OPEN statement allows your BASIC or FORTRAN program to access 
VAX—11 RMS facilities not otherwise available in BASIC or FORTRAN. The USEROPEN keyword lets 
you call your own procedure during the processing of the OPEN statement. This procedure then 
provides additional parameters to and/or obtains additional results from RMS. 

When executing an OPEN statement, the Run-Time Library sets up the RMS File Access Block (FAB), 
Record Access Block (RAB), Name Block (NAM), and Extended Attribute Blocks (XABs), as well as its 
own internal data structures, according to the OPEN keywords. The USEROPEN keyword causes the 
Run-Time Library to call your procedure instead of calling the RMS procedures. Your procedure 
receives the FAB and RAB addresses and the logical unit number (LUN) for the file specified in the 
OPEN statement. Your USEROPEN procedure must call the RMS procedures SYS$OPEN or 
SYS$CREATE, and SYS$CONNECT. It can modify or obtain information from FAB, RAB, NAM, or 
XAB locations before or after it calls these routines. 

The Run-Time Library calls the USEROPEN procedure as follows: 

status.wlc = myopen (fab.mr.r, rab.mr.r, lun.rl.r) 

Your USEROPEN procedure should call SYS$OPEN if the file to be opened already exists (STATUS = 
'OLD' or FOR INPUT), or SYS$CREATE if it does not. For more information about the RMS control 
structures see the VAX-11 Record Management Services Reference Manual. 

To illustrate using a USEROPEN procedure consider the following situation. Normally, the INITIALIZE 
keyword causes VAX-11 FORTRAN to allocate a file contiguously when possible, but not to generate 
an error if the space is not completely contiguous. However, if you wish to create a 1000—block file, 
allocated contiguously, and return an error if the space is not available, use a FORTRAN statement 
such as the following: 

OPEN (UNIT = 10, FILE = 'file.ext', STATUS = 'NEW', 

1INITIALSIZE = 1000, USEROPEN = create.contis) 
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Similarly, use this statement to create a contiguous file in BASIC: 

10 OPEN 'file.ext' FOR OUTPUT AS FILE #101 & 

* FILESIZE 1000 1 ♦CONTIGUOUS ♦ USERO PEN create_cont i a 


The following VAX-11 MACRO USEROPEN procedure creates the file after setting the RMS FOP bit 
FAB$V_CTG to specify contiguous allocation: 


♦ TITLE CREATE _ CONTIG 
$F ABDEF 

♦ ENTRY CREATE.CONTIG ♦ ' MO 

FAB.PTR = a 

RAB.PTR = 8 

MOUL FAB.PTR(AP )* RO 
INSO #0 * »FAB$V.CBT> #1# 
FAB$L_F0P(R0) 

INSO #1 f #FAB$V_CTG# #1# 

$CRE ATE FAB = @FAB _ PTR(AP) 
BLBC RO# 10$ 

$C0NNECT RAB = @RAB _ PTR(AP) 
10$: RET 

♦ END 


define all FAB hits and offsets 


? RO = address of FAB 

♦clear contiguous best try bit 
FAB$L_F0P(R0) 5 set FAB$0_CTG bit in 

♦ FOP 

5 create file 
5 branch if error 
5 connect stream to file 

♦ Return with R0 set to success 
5 or failure 


A USEROPEN routine must return a status value. The Run-Time Library attempts to process any error 
condition returned to it by the USEROPEN routine. 

The Run-Time Library sets up the following VAX-11 RMS control structures before calling the 
USEROPEN procedure: 

FAB File Access Block 

RAB Record Access Block 

NAM Name Block 

XAB FHC Extended Attributes Block 

Any key XABs specified for index files 


A USEROPEN procedure should not alter the allocation of these structures, although it can modify the 
contents of many of the fields. Your procedure can also add additional XAB control blocks by linking 
them to the XAB chain. If you link another XAB to the XAB chain in a BASIC USEROPEN, be sure to 
unlink it. If you do not, the BASIC OPEN routine assumes control and attempts to unlink the addi¬ 
tional XAB. 


Note 

Exercise caution when changing fields that have been set as a result of BASIC or 
FORTRAN keywords; the internal Run-Time Library data base will not reflect the 
changes. 

Always use the BASIC or FORTRAN OPEN keyword if one is available. For example, do not attempt 
to change the record size in your USEROPEN routine. Instead, use the BASIC or FORTRAN keyword 
RECORDSIZE. 
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Only the RAB structure remains allocated after the OPEN. Therefore, do not store the addresses of the 
FAB, XAB, or NAM blocks for later use. 


Note 

In future releases of the VAX-11 Run-Time Library, DIGITAL may alter the use of 
some RMS fields. Such action could result in an implementation of the USEROPEN 
keyword that is not compatible with this release. 

VAX-11 RMS does not allow multiple copies of the same type of XAB. To be compati¬ 
ble with future releases of the Run-Time Library, your procedure should scan the XAB 
chain for XABs of the type to be inserted. If one is found, it should be used instead. 

2.5 PASCAL USER-ACTION Parameter 

The USER_ACTION parameter allows you to access RMS facilities not explicitly available in VAX-11 
PASCAL by writing a function that controls the opening and closing of the file. Including the 
USER-ACTION parameter causes the Run-Time Library to call your function to open or close the file 
instead of calling RMS directly. 

The PASCAL USER_ACTION parameter differs from the BASIC/FORTRAN USEROPEN keyword in 
that you may include user-written procedures with either OPEN or CLOSE or both, while USEROPEN 
is limited to OPEN. Further, the USER_ACTION function may be written in PASCAL and is allowed to 
up-level address. The RMS RAB, FAB, and NAM blocks are allocated dynamically and remain de¬ 
fined as long as the file is opened. Therefore, your program may store the addresses of these structures 
for later use. 

See the VAX-11 PASCAL User's Guide for more information about the USER-ACTION parameter. 

2.5.1 Using USER-ACTION with OPEN 

When an OPEN procedure is executed, the Run-Time Library uses the parameters you specify to 
establish the VAX—11 RMS File Access Block (FAB) and Record Access Block (RAB). These blocks are 
used to transmit requests for file and record operations to RMS; they are also used to return: 

• The data contents of files 

• Information about file characteristics 

• Status codes 

The external functions PAS$FAB and PAS$RAB (described in Chapter 2) can be used to obtain 
pointers to the file's FAB and RAB. 

In addition to the FAB and RAB, the Run-Time Library also creates the NAM block, the File Header 
Characteristics (FHC) and Summary (SUM) extended attributes blocks (XABs), and key XABs for a file 
that contains KEY attribute specifiers in the file's record declaration. The Run-Time Library then 
passes these three parameters, in this order, to your USER—ACTION function: 

1. The FAB address 

2. The RAB address 

3. The file variable 
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Your function must open the file ($OPEN and SCONNECT to open existing files or $CREATE and 
$CONNECT to open a new file), check the status returned by the RMS routines, and return as its own 
function value a status indicating success or failure. Your USER-ACTION function may elect to 
modify fields in the FAB and RAB or to store RAB or FAB values in program variables. 

Note 

Exercise caution when changing fields that have been set as a result of OPEN proce¬ 
dure parameters. The internal Run-Time Library data structures will not reflect such 
changes. 

2.5.2 Using USER-ACTION with CLOSE 

When a CLOSE procedure is executed, the Run-Time Library uses the parameters you specify to 
modify the VAX—11 RMS File Access Block (FAB), as well as using its own internal data structures, if 
necessary. The external function PAS$FAB (described in Chapter 2) can be used to obtain pointers to 
the file's FAB. 

The Run-Time Library then passes these three parameters, in this order, to your USER-ACTION 
function: 

1. The FAB address 

2. The RAB address 

3. The file variable 

Your function must close the file using $CLOSE if the file is open for RMS I/O (FAB$W_IFI is not 
zero), check the status returned by $CLOSE, and return as its own function value a status indicating 
success or failure. 
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3.1.2 VAX-11 COBOL 


The Run-Time Library provides three COBOL-specific procedures for error handling. COB$ERROR 
signals errors detected at run time. COB$IOEXCEPTION handles I/O exceptions and updates file 
status variables. COB$HANDLER is the handler automatically established for each COBOL procedure 
activation. It performs three functions: 

1. Works with COB$IOEXCEPTION to perform a USE procedure 

2. Resignals SS$_ROPRAND as COB$_INVDECDAT if the error occurs during execution of a 
CVTTP or CVTSP instruction (Convert Trailing Numeric to Packed Decimal or Convert Leading 
Separate to Packed Decimal) 

3. Resignals all other errors 

You can handle errors in your COBOL procedure with USE procedures. 

3.1.3 VAX-11 FORTRAN 

In FORTRAN, you can explicitly supplement or override default actions by using: 

• The error (ERR) and end-of-file (END) specifiers in I/O statements to transfer control to error¬ 
handling code within the program 

• The input/output status specifier (IOSTAT) in I/O statements to identify language-specific errors 

• The compiler qualifier /CHECK = UNDERFLOW which produces code to count and report occur¬ 
rences of floating underflow, and allow the program to continue with a value of zero 

• The VAX-11 condition handling facility or user-written condition handlers established by calling 
LIB$ESTABLISH to tailor error processing to the special requirements of your applications 

These error-processing methods are complementary; you can use them together in the same program. 
However, before writing a condition handler, you should be familiar with the VAX-11 condition 
handling facility and with the condition handling description in the VAX—11 Run-Time Library User's 
Guide. 

3.1.3A VAX-11 PASCAL 

VAX-11 PASCAL provides error handling in the following ways: 

• The ERROR := error-recovery parameter of most PASCAL I/O procedures, to transfer control to 
error-handling code within the program 

• Default Run-Time Library error handling, to issue an error message and terminate execution 

• Predeclared routines such as STATUS and EOF, to check for particular conditions 

• The compiler qualifier /CHECK, to control whether certain run-time checks are performed 

• User-written condition handlers set up using the PASCAL predeclared procedure ESTABLISH 

These error-processing methods are complementary; you can use them together in the same program. 
However, before writing a condition handler, you should be familiar with the VAX—11 Condition 
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Handling Facility, with the condition-handling description in the VAX-11 Run-Time Library User's 
Guide , and with PASCAL error handling as explained in the VAX-11 PASCAL User's Guide and in 
Chapter 1 of the PASCAL division of this manual. 

3.1,4 VAX-11 PL/I 

PL/I provides error handling and signaling through the use of the ON, REVERT, and SIGNAL state¬ 
ments and several built-in functions. You can direct these statements and the functions they perform 
to encompass VAX—specific and program- or application-specific error signaling and condition han¬ 
dling by specifying the VAXCONDITION keyword. 

PL/I defines a condition handler to handle a specific condition in the ON-unit. Any procedure can 
establish a separate ON—unit for each condition. An ON-unit can act in one of four ways as a result 
of a condition: 

• Handle the condition and return control to the point at which the condition was signaled 

• Resignal the condition and request PL/I to locate another ON-unit to handle it 

• Unwind the call stack by transferring control outside the current procedure activation 

• Stop the program 

3.2 Signaling 

A procedure signals to indicate that an exception has occurred. For a program to issue a message and 
continue execution after handling the condition, it must call the standard procedure: 

CALL LIB$SIGNAL (condition-value, parameters ...) 

When a program wants to issue a message and stop unconditionally, it calls the procedure: 

CALL LIB$STOP (condition-value, parameters ...) 

In both cases, condition-value indicates the signaled condition. However, LIB$STOP forces the sever¬ 
ity of condition-value to SEVERE. The parameter list describes the exception condition. These are the 
same parameters used to issue a system message. (See Chapter 6 of the VAX-11 Run-Time Library 
User's Guide for more information about using LIB$STOP and LIB$SIGNAL.) 

Hardware exceptions behave like a call to LIB$SIGNAL. The stack scan and the parameters passed to 
each condition handler are the same. Therefore, you can write a single condition handler to detect 
both hardware and software exceptions. 

The language support procedures indicate the occurrence of an exception condition by calling 
LIB$SIGNAL or LIB$STOP. Your procedure or handler can also call LIB$SIGNAL or LIB$STOP to 
indicate the occurrence of conditions that your program considers exceptional. 

3.2.1 VAX-11 BASIC 

In general, the BASIC warning errors are signaled as WARNING, and fatal errors signaled as ERROR. 
All other errors are signaled as INFORMATION. Since program execution cannot be restarted follow¬ 
ing fatal errors, they are signaled by calling LIB$STOP; the rest are signaled by calling LIB$SIGNAL. 
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3.2.2 VAX-11 COBOL 


All COBOL run-time errors are signaled by calling LIB$STOP. Thus execution cannot be continued 
except by unwinding. 

3.2.3 VAX-11 FORTRAN 

The Run-Time Library contains condition handlers that process a number of FORTRAN run-time 
errors. How the Run-Time Library processes errors depends upon several factors: 

• Error severity 

• Specific recovery method 

• Continuation status 

When VAX-11 FORTRAN detects an error condition, it generates a severity code. All 
FORTRAN-specific errors have severity codes of either ERROR or SEVERE (fatal). The default action 
for all fatal errors is to stop execution and exit. However, some fatal errors allow you to write a 
condition handler or an I/O error-handling specifier to allow program execution to continue. Other 
fatal errors cause execution to stop, whether or not you have written a handler for the error. For more 
information, see the VAX-11 FORTRAN User's Guide. 

3.2.3A VAX-11 PASCAL 

All PASCAL run-time errors have severity codes of SEVERE; the default action is to stop execution and 
exit. However, you can change this default action in two ways: 

• Specifying ERROR := CONTINUE as the optional parameter to an I/O procedure 

• Setting up a condition handler to handle the condition. You declare the handler as a routine in your 
program's declaration section and establish it using the predeclared procedure ESTABLISH. (See the 
VAX-11 PASCAL User's Guide for more information.) Such a handler has several options: 

-It can perform an up-level GOTO to the appropriate point. 

-It can unwind by calling the system service SYS$UNWIND. 

-It can sometimes continue with the instruction following the last call to the Run-Time Library by 
returning the value SS$_CONTINUE. See Chapter 1 of the PASCAL division for more information. 

-It can decide it does not want to handle the error and return a function value of SS$_RESIGNAL. 

3.2.4 VAX-11 PL/I 

In PL/I, errors are signaled through ON conditions and handled by groups of statements called 
ON-units. An ON condition is any one of several named conditions whose occurrences interrupt the 
normal execution of a program. The ON-unit can complete execution in any of the following ways: 

• Execute a nonlocal GOTO statement 

• Execute a PL/I STOP statement 
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• Call the RESIGNAL built-in subroutine 

• Execute a PL/I SIGNAL statement 

3.3 Resignaling 

A condition handler resignals to indicate that the signal procedure should continue searching for a 
condition handler to process the error. To resignal, a condition handler returns the value 
SS$_RESIGNAL. 

All condition handlers should check for specific errors. If the signaled condition is not one of the 
expected errors, a handler should resignal. Before resignaling, a handler may change the severity of 
the error to get the desired default action. 

3.3.1 VAX-11 BASIC 

To resignal in BASIC, a user-defined condition handler executes the statement ON ERROR GO BACK. 
This statement returns control to the calling program in one of two ways: 

• If an error in your program has been signaled, executing an ON ERROR GO BACK statement 
returns control to the calling program immediately. 

• If an error in your program has not been signaled, executing an ON ERROR GO BACK statement 
sets an internal flag so the next occurrence of an error will return control to the calling program. 

3.3.2 VAX-11 COBOL 

The COBOL default condition handler COB$HANDLER checks whether the current signal is the 
result of a reserved operand fault or a special signal that returns control from USE procedures invoked 
by an I/O exception. If the signal was not caused by either condition, COB$HANDLER exits with a 
status of SS$_RESIGNAL, so the condition is resignaled. 

3.3.3 VAX-11 FORTRAN 

A FORTRAN condition handler controls subsequent program execution by returning a function value. 
To resignal, set the function return value equal to SS$_RESIGNAL. 

3.3.3A VAX-11 PASCAL 

A PASCAL condition handler returns a value of SS$_RESIGNAL to indicate that it does not wish to 
handle the error. Before resignaling, the handler may change the error's severity. 

3.3.4 VAX-11 PL/I 

A PL/I ON—unit can use the RESIGNAL built-in subroutine to request that PL/I continue to search for 
an ON—unit to handle the condition. It does so by calling the RESIGNAL built-in subroutine: 

CALL RES IGNAL( ) 5 

When an ON—unit calls RESIGNAL, the system resumes its search of the call stack from the call frame 
where it located the current ON-unit. It then continues the search in the normal sequence. 
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3.4 Unwinding 

Stack unwinding removes one or more frames from the stack, starting with the frame where the 
condition occurred. It can be used whether the condition was detected by hardware or signaled by 
LIB$SIGNAL or LIB$STOP. After a handler has called LIB$STOP, you can continue execution only by 
unwinding. 

If a handler wants to unwind, it or any procedure it calls executes the SYS$UNWIND system service. 
SYSSUNWIND ignores any function value from the handler. Therefore, a handler cannot both resig¬ 
nal and unwind. It can issue a message and unwind only by calling LIB$SIGNAL and SYS$UNWIND. 

3.4.1 VAX-11 BASIC 

In BASIC, SYSSUNWIND is called as part of the sequence initiated by the RESUME statement. 

3.4.2 VAX-11 COBOL 

The default COBOL condition handler determines whether the current signal returns control from 
USE procedures invoked by an I/O exception. If so, the handler calls SYSSUNWIND. 

3.4.3 VAX-11 FORTRAN 

In FORTRAN, your handler calls SYSSUNWIND explicitly to perform unwinding. Depending on the 
argument(s) passed to SYSSUNWIND, the unwinding operation completes as follows: 

• SYS$UNWIND(,) - unwind to the establisher's caller 

• SYS$UNWIND(DEPTH,) — unwind to the establisher at the point of the call that resulted in the 
exception 

3.4.3A VAX-11 PASCAL 

If a call to an I/O procedure includes the parameter ERROR : = CONTINUE, and an error occurs, the 
PASCAL—specific condition handler PASSHANDLER unwinds to the instruction following the call. 

If the handler is a PASCAL routine established with the predeclared procedure ESTABLISH, the 
handler can perform an up-level GOTO to an appropriate point, and the stack is unwound to that 
frame. 

The handler may unwind by explicitly calling the system service SYSSUNWIND. 

3.4.4 VAX-11 PL/I 

An ON-unit in a PL/I procedure can execute a nonlocal GOTO statement that transfers control to a 
previous block. In this case PL/I unwinds by releasing call frames, beginning with the call frame 
created for the ON-unit, until it reaches the block containing the label specified in the GOTO 
statement. 


September 1982 


Error Handling GEN 58.1 







September 1982 


This division describes the VAX-11 BASIC-specific support proce¬ 
dures. It also contains information about calling and writing user pro¬ 
grams that access these procedures. The material in this division is not 
introductory. 
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Preface 


Objectives 

This division describes the Run-Time Library procedures that support VAX-11 BASIC, Version 2.0. It 
also contains information about calling and writing user programs that access these procedures. 

Document Structure 


Chapter 1 
Chapter 2 
Chapter 3 
Chapter 4 

Chapter 5 
Appendix A 


describes how to use the BASIC-specific procedures, 
describes the file I/O processing procedures. 

describes the auxiliary I/O procedures including OPEN and CLOSE. 

describes the procedures available for format conversion, string manipulation, and 
exponentiation. 

describes miscellaneous compiled-code support procedures. 

describes the procedures that provide compatibility with RSTS/E and PDP-11 
BASIC-PLUS. 


The functional descriptions of the BASIC procedures are cursory. Refer to the VAX—/ 7 BASIC 
Language Reference Manual and the VAX-11 BASIC User's Guide for more details. 
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Summary of Technical Changes 


1. Minimal ANSI support for the BASIC function TAB has been implemented using a new entry 
point, BAS$ANSIN_TAB 

2. Support for byte, G_floating, H_floating, and packed decimal have been added to the I/O 
routines, conversion routines, I/O functions, comparison procedures, and matrix operations. 
The new entry points are: 

• BAS$CMPx_APP 

• BAS$CVTxP 

• BAS$CVTPx 

• BAS$CVTRxP 

• BAS$CVT_OUT_x_E 

• BAS$CVT_OUT_x_F 

• BAS$CVT_OUT_x_G 

• BAS$CVT_T_P 

• BAS$DET_x 

• BAS$FET_FA_x_R8 

• BAS$FORMAT_x 

• BAS$IN_x_R 

• BAS$IN_P_DX 

• BAS$NUM1 _x 

• BAS$NUM_x 

• BAS$OUT_x_V_f 

• BAS$OUT_P_DX_f 

• BAS$STO_FA_x_R8 

• BAS$STR_x 

• BAS$VAI_x 


September 1982 


IX 




3. Exponentiation routines have been added for G_floating and H_floating, and also for mixing 
of single and double floating-point numbers. The new entry points are: 

• BAS$POWDR 

• BASSPOWGG 

• BAS$POWGJ 

• BAS$POWHH 

• BASSPOWHJ 

• BAS$POWRD 

4. Extended-precision packed decimal routines have been added for multiplication and division. 
The results are carried to 31 digits. The new entry points are: 

• BAS$EXTEND_DIVP 

• BAS$EXTEND_MULP 

5. Dynamic mapping lets a user allocate a static storage area at compile time and then define the 
length and position of the variables within this area at execution time. Run-Time Library 
support for this new feature is provided by the new entry point: BAS$REMAP_ARRAY. 

Additional support for dynamic mapping is available using the following existing entry points: 

• BAS$CHANGE_NA_S 

• BAS$CHANGE_S_NA 

• BAS$FETCH_BFA 

• BAS$STORE_BFA 

• BAS$MAT_xxxxxx 

6. RMS enhancements requiring additional Run-Time Library support for: 

• RFA access — implemented by new entry points: 

- BAS$FIND_RFA 

- BASSGETRFA 

- BAS$GET_RFA 

• Manual record locking — implemented by new optional parameter added to these existing 
entry points: 

- BAS$FIND 

- BAS$FIND_KEY 

- BASS FIND_RECORD 

- BASSGET 

- BAS$GET_KEY 

- BASSGET—RECORD 












• Segmented keys for indexed files — implemented by changes to the control blocks for 
BAS$OPEN 

7. Dimensioning of an array at execution time — implemented by a new Run-Time Library entry 
point, BAS$RT_DIM 
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Chapter 1 

Using VAX-11 BASIC Support Procedures 


This division describes the BASIC-specific support procedures. It has five chapters and one appendix. 
Chapter 1 describes how to use the BASIC-specific procedures, 
describes the file I/O processing procedures. 

describes the auxiliary I/O procedures including OPEN and CLOSE. 


Chapter 2 
Chapter 3 
Chapter 4 


describes the procedures available for format conversion, string manipulation, and 
exponentiation. 

Chapter 5 describes miscellaneous compiled-code support procedures. 

Appendix A describes the procedures that provide compatibility with RSTS/E and 
PDP-11 BASIC-PLUS. 

The functional descriptions of the BASIC procedures are cursory. Refer to the VAX-11 BASIC 
Language Reference Manual and the VAX-11 BASIC User's Guide for more details. 


1.1 Data Types Supported 

BASIC supports the following data types: 

• Byte (signed) — BYTE 

• Word (signed) — WORD 

• Longword (signed) - LONG (Default for variables with %) 

• F_floating - SINGLE (Default for variables with neither % nor $) 

• D_floating - DOUBLE 

• Scaled D_floating— /SCALE = n 
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• G_floating - GFLOAT 

• H_floating - HFLOAT 

• Packed decimal — DECIMAL 

• Character String — STRING (Default for variables with $) 

1.2 Program Units 

In this manual, VAX-11 BASIC program units are called procedures. Table BAS-1 summarizes the 
types of program units supported by the Run-Time Library. 

Table BAS-1: Supported Program Units 


Program Unit 

_i 

Begin Statement 

_ 

End Statement 

User-Declared 

Local Storage 

Major Procedures 

Main Program 

The first 
statement 

END or last 

statement 

Only variables in the formal parameter list 

Subprogram 

SUB 

SUBEND 

Only variables in the formal parameter list 

External 

Function 

FUNCTION 

FUNCTIONEND 

Only variables in the formal parameter list 

Minor Procedures 

DEF 

Function 

DEF 

FNEND 

Only variables in the formal parameter list 

Subroutine 

Called by GOSUB 
or ON GOSUB 

RETURN 

No 

Condition 

Handler 

Established by 

ON ERROR GOTO 

RESUME 

No 

Immediate 

On-Line 

Single statement routine that 
is executed immediately on entry 

No 


1.3 Memory Classes 

Memory is divided into three storage classes: static, stack, and heap. 

1.3.1 Static Storage 

Static storage is allocated when the program image is loaded and remains in effect for the duration of 
the program execution. It includes generated executable code, constants, COMMON/MAP PSECTs, 
as well as COMMON/MAP string and array descriptors. 

1.3.2 Stack Storage 

Stack storage is allocated at procedure activation and freed at procedure termination. This storage 
class includes numeric variables, dynamic string descriptors, dynamic array descriptors, temporaries, 
and frame information. 








































Chapter 2 

File Processing Support 


This chapter describes the Run-Time Library routines that support BASIC I/O operations, including: 

• Sequential record I/O 

• Random record I /O 

• Indexed record I/O 

• Terminal-format I/O 

• Virtual I/O 

• Internal input 

The Run-Time Library processes I/O with a collection of small modular procedures that follow 
the VAX—11 Modular Programming Standard (see the VAX—11 Guide to Creating Modular Library 
Procedures , Appendix A). However, since these procedures were designed primarily for use in com¬ 
piled code, scalar input parameters are usually passed by immediate value. 

2.1 Record I/O 

This section describes the Run-Time Library routines that support BASIC sequential, indexed, and 
relative files, which are processed using record I/O. 

BAS$GET 


2.1.1 Sequential I/O 

Each procedure sets up the I/O data base for the specified logical unit (if necessary) and then calls an 
inner level that interfaces to RMS. When program control returns to the user level, the I/O data base 
is removed from the active I/O stack. 


BAS$FIND locates the next sequential record on the logical unit. 
BASSGET reads the next record on this logical unit into the input buffer. 
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BAS$PUT and BAS$PUT_COUNT write the record in the output buffer to the logical unit after the last 
record in the current OPEN file. For BAS$PUT_COUNT, the number of bytes written must be 
specified. 

BAS$RESTORE rewinds the file on the logical unit. 

BAS$SCRATCH truncates the file OPEN on the logical unit at the current record. 

BAS$UPDATE and BAS$UPDATE_COUN update the current record on the logical unit. They can be 
used only on disk files and should follow a successful BAS$FIND or BAS$GET operation. The update 
record must have the same length as the record it replaces. For BAS$UPDATE_COUN, the number of 
bytes in the update record must be specified. 

{ MODIFY) 

NONE > ] 

READ ) 

generates CALL BAS$FIND (unit.rlu.v [,lock-flags.rlu.v]) 

{ MODIFY) 

NONE > ] [.REGARDLESS] 

READ ) 


generates 

Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 


CALL BASSGET (unit.rlu.v [,lock-flags.rlu.v]) 

PUT #chnl-exp [.COUNT int-exp] 

CALL BASSPUT (unit.rlu.v) 

CALL BAS$PUT_COUNT (unit.rlu.v,count.rlu.v) 

RESTORE #chnl-exp 

CALL BAS$RESTORE (unit.rlu.v) 

SCRATCH #chnl-exp 

CALL BAS$SCRATCH (unit.rlu.v) 

UPDATE #chnl-exp [.COUNT int-exp] 

CALL BASSUPDATE (unit.rlu.v) 

CALL BAS$UPDATE_COUN (unit.rlu.v,count.rlu.v) 


Arguments 

unit 

The specified logical unit (#chn/-exp). Passed by immediate value. 


lock-flags 

The manual record locking flag. Passed by immediate value. 


count 

The number of bytes in the record (int-exp). Passed by immediate value. 


BAS$GET-RECORD 
2.1.2 Random I/O 

Each procedure sets up the I/O data base for the specified logical unit (if necessary) and then calls an 
inner level that interfaces to RMS. When program control returns to the user level, the I/O data base 
is removed from the active I/O stack. 







BAS$DELETE deletes the current record on this logical unit. BAS$DELETE must follow a successful 
BAS$FIND_RECORD, BAS$FIND_RFA, BAS$GET_RECORD, or BAS$GET_RFA operation. 

BAS$FIND_RECORD and BAS$FIND_RFA locate the relative record on this logical unit. 
BAS$FIND_RECORD uses the relative record number while BAS$FIND_RFA uses the RFA address to 
specify the desired record. 

BAS$GET_RECORD and BAS$GET_RFA read the relative record on this logical unit into the foreign 
buffer. The number of the foreign buffer is located in the upper byte of the logical unit number. 
BAS$GET_RECORD uses the relative record number while BAS$GET_RFA uses the RFA address to 
specify the desired record. 

BAS$PUT_RECORD and BAS$PUT_REC_CNT write a record on the logical unit relative to the 
beginning of the current file. For BAS$PUT_REC_CNT, the number of bytes to be written must be 
specified. 

BASSRESTORE rewinds the relative file on this logical unit to the beginning of the file. 

BAS$UPDATE and BAS$UPDATE_COUN update the current record on this logical unit. These pro¬ 
cedures can only be used on disk files and should follow a successful BAS$FIND_RECORD or 
BAS$GET_RECORD operation. For fixed-length records, the update record must have the same 
length as the record it replaces. For BAS$UPDATE_COUN, the number of bytes in the update record 
must be specified. 

Format DELETE #chnl-exp 

generates CALL BAS$DELETE (unit.rlu.v) 


Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 


{ MODIFY) 

NONE \ ] 

READ ) 

CALL BAS$FIND_RECORD (unit.rlu.v, rec-num.rlu.v [,lock-flags.rlu.v]) 

{ MODIFY ) 

NONE > ] 

READ ) 

CALL BAS$FIND_RFA (unit.rlu.v, rfa.rx.r [,lock-flags.rlu.v]) 

{ MODIFY ) 

NONE > ] [,REGARDLESS] 

READ ) 

CALL BAS$GET_RECORD (unit.rlu.v, rec-num.rlu.v [Jock-flags.rlu.v]) 

{ MODIFY ) 

NONE V ] [,REGARDLESS] 

READ ) 

CALL BAS$GET_RFA (unit.rlu.v, rfa.rx.r [Jock-flags.rlu.v]) 


Format PUT #chnl-exp, RECORD num-exp [,COUNT int-exp] 

generates CALL BAS$PUT_RECORD (unit.rlu.v, rec-num.rlu.v) 

CALL BAS$PUT_REC_CNT (unit.rlu.v, rec-num.rlu.v, count.rlu.v) 
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Format UPDATE #chnl-exp [,COUNT int-exp] 

generates CALL BAS$UPDATE (unit.rlu.v) 

CALL BAS$UPDATE_COUN (unit.rlu.v, count.rlu.v) 

Format RESTORE #chnl-exp 

generates CALL BASSRESTORE (unit.rlu.v) 


Arguments 

unit 

The specified logical unit (#chn/-exp). Passed by immediate value, 
rec-num 

The relative record number ( num-exp). Passed by immediate value, 
rfa 

The RFA address of the desired record ( rfa-vbl ). Passed by reference, 
lock-flags 

The manual record locking flag. Passed by immediate value, 
count 

The number of bytes in the record (int-exp). Passed by immediate value. 


BAS$GET_KEY 


2.1.3 Indexed I/O 

Each procedure sets up the I/O data base for the specified logical unit (if necessary) and then calls an 
inner level that interfaces to RMS. When program control returns to the user level, the I/O data base 
is removed from the active I/O stack. 

BAS$FIND_KEY locates a record on the logical unit based on the specified key. 

BAS$GET_KEY reads one record on this logical unit with the specified key into the foreign buffer. 

BAS$RESTORE_KEY rewinds the file on this logical unit based on the specified key. 

! EQ ) pck-dec-exp L MODIFY ) 

GE > str-exp [,ALLOW < NONE > ] 

GT y int-exp2 ( READ ) 

generates CALL BAS$FIND_KEY (unit.rlu.v, key-no.rl.v, rel-opr.rl.v, key-str.rx.dy 
[,lock-flags.rlu.v]) 

! EQ ) pck-dec-exp 
GE > str-exp 
GT y int-exp2 

{ MODIFY) 

NONE >] [,REGARDLESS] 

READ ) 


generates 


CALL BAS$GET_KEY (unit.rlu.v, key-no.rl.v, rel-opr.rl.v, key-str.rx.dy 
[Jock-flags.rlu.v]) 






Format 


RESTORE #chnl-exp ,KEY #int-exp 

CALL BAS$RESTORE_KEY (unit.rlu.v, key-no.rlu.v) 


generates 

Arguments 

unit 

The specified logical unit (#chn/-exp). Passed by immediate value, 
key-no 

The RMS key number (/nt-exp/). Passed by immediate value, 
rel-opr 

The relational operator. Passed by immediate value. Rel-opr is coded as follows: 

0 EQ 

1 GE 

2 GT 

key-str 

An ASCII text string ( str-exp ) or an integer (int-exp2) for the key of the record to be found. Passed 
by descriptor. X (data type) can be t, w, or /, and y (parameter form) can be d, s, or z. 

lock-flags 

The manual record locking flag. Passed by immediate value. 
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Format MAT PRINT #chnl-exp 

generates CALL BAS$MAT_PRINT (unit.rlu.v) 

Format PRINT #chnl-exp 

generates CALL BAS$PRINT (unit.rlu.v) 

Format PRINT #chnl-exp USING str-exp 

generates CALL BAS$PRINT_USING (unit.rlu.v, format.rt.dx) 

Arguments 

unit 

The specified logical unit ( #chnl-exp ). Passed by immediate value, 
format 

The format string (str-exp). Passed by descriptor. 


BASSIN-d-m 


2.2.2 I/O Transmission Calls 

A call to an element transmission routine is made for each element in the list. Each routine calls an 

inner level routine which interfaces to RMS. The routines modify the I/O data base. 

2.2.2.1 Input Element Transmission Calls — BAS$IN_d_R inputs a number. It enters a data element 

into the destination area. 

The permissible data types (cf) are Byte (B), D_floating (D), F_floating (F), G_floating (G), H_floating 

(H), Longword (L), Word (W), and Packed Decimal (P). 

generates CALL BAS$IN_B_R (element.wb.r) 

CALL BAS$IN_D—R (element.wd.r) 

CALL BAS$IN_F_R (element.wf.r) 

CALL BAS$IN_G-R (element.wg.r) 

CALL BAS$IN_H_R (element.wh.r) 

CALL BAS$IN_I_R (element.wl.r) 

CALL BAS$IN_W_R (element.ww.r) 

CALL BAS$IN_P_DX (element-dsc.wp.dxl) 

Arguments 

element 

The area to store the I /O element. The length of the area is determined by the data type: one byte 
for a byte, two bytes for a word, four bytes for a longword or an F_floating number, eight bytes 
for a D_floating or G_floating number and 16 bytes for an H_floating number. Passed by 
reference. 

element-dsc 

The area to store the packed decimal number. Passed by descriptor. 
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Implicit Outputs 

RECOUNT 

The number of bytes in the record. 

BAS$IN—T—DX 

BAS$IN_T_DX inputs text. It enters text whose destination is passed by descriptor. 

generates CALL BAS$IN_T_DX (element.wt.dxl) 

Arguments 

element 

The destination text. Passed by descriptor. 

Implicit Outputs 

RECOUNT 

The number of bytes in the record. 

BAS$OUT-d-m-f 

2.2.2.2 Output Element Transmission Calls — BAS$OUT_d_m_f causes a number to be printed. 

Permitted data types (d) are: 

• D_floating (D) 

• F_floating (F) 

• G_floating (G) 

• H_floating (H) 

• Longword integer (L) 

• Packed decimal (P) 

Permitted format characters (f) are: 

• Semicolon (S) 

• Comma (C) 

• No format character (B) 

generates CALL BAS$OUT_D_V_S (element.rd.v) 

CALL BAS$OUT_D-V—C (element.rd.v) 

CALL BAS$OUT_D_V_B (element.rd.v) 

CALL BAS$OUT_F_V_S (element.rf.v) 

CALL BAS$OUT_F_V-C (element.rf.v) 

CALL BAS$OUT_F_V_B (element.rf.v) 

CALL BAS$OUT_G—V_S (element.rg.v) 

CALL BAS$OUT_G_V_C (element.rg.v) 

CALL BAS$OUT_G-V_B (element.rg.v) 







CALL BAS$OUT_H_V_S (element.rh.v) 
CALL BAS$OUT_H_V_C (element.rh.v) 
CALL BAS$OUT_H_V_B (element.rh.v) 

CALL BAS$OUT_l_V_S (element.rl.v) 

CALL BAS$OUT_I_V_C (element.rl.v) 

CALL BAS$OUT_l_V_B (element.rl.v) 


CALL BAS$OUT_P_DX_S (element-dsc.rp.dxl) 
CALL BAS$OUT_P_DX_C (element-dsc.rp.dxl) 
CALL BAS$OUT_P_DX_B (element-dsc.rp.dxl) 


Arguments 

element 

The value to be printed. Passed by immediate value, 
element-dsc 

The packed decimal number to be printed. Passed by descriptor. 
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BAS$IO-END 


2.2.3 I/O List Termination Call 

BAS$IO_END completes the processing of a BASIC I/O statement. If the last record was an output 
record, it is written (if appropriate) to the output device. Then, BAS$IO_END pops the I/O system to 
a previously active I/O statement (if any). 

generates CALL BAS$IO_END 

2.3 Virtual I/O 

The ORGANIZATION VIRTUAL clause is used to open two types of files, block I/O files and virtual 
array files. 

Block I /O files are sequential or random access files that contain a series of blocks. You can store one 
or more records in each block and access the data by specifying a BAS$GET, BAS$GET_RECORD, 
BAS$PUT, or BAS$PUT_RECORD operation. 

Virtual array files are random access files similar to relative files. You can read or write any element in 
the file regardless of its location. 

When BASIC stores data items in a virtual array file, it does not convert them to ASCII characters, but 
stores them in the internal binary representation. Consequently, there is no loss of precision caused 
by data conversion. 

You must use the DIM statement to define storage space for a virtual array file just as you do for a 
regular array. 


BAS$FETCH_ADDR 


2.3.1 Fetch Address of Element of Nonvirtual Array 

BAS$FETCH_ADDR calculates the address of a nonvirtual array element. This routine supports the 
BASIC LOC function. 

Format 

generates CALL ret-value.wl.v = BAS$FETCH_ADDR(array-dsc.rx.da, indexl .rl.v 
[, ... indexn.rl.v]) 

Arguments 

array-dsc 

The array. Passed by descriptor, 
indexl 

The first index into the array. Passed by immediate value, 
indexn 

The nth index into the array. Passed by immediate value, 
ret-value 

The address of the array element. Passed by immediate value. 
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Messages 


BAS$_ARGDONMAT 

Arguments do not match. 

BAS$_NOTIMP 

Not implemented. The descriptor class is not equal to an array. 

BAS$_SUBOUTRAN 

Subscript out of range. 

BAS$_TOOFEWARG 
Too few arguments. 

BAS$_TOOMANARG 
Too many arguments. 


BAS$FETCH-BFA 


2.3.2 Fetch Data Item from Array 

BAS$FETCH_BFA fetches a value from an array or virtual array. The destination of the value is passed 
by descriptor. 

BAS$FET_FA_d_R8 fetches a number from an array or virtual array. Permissible data types (c/) are 
byte integer (B), D_floating (D), F_floating (F), G_floating (G), H_floating (H), longword integer (L), 
or word integer (W). 

Format A$ = B$(l%) 

generates CALL BAS$FETCH_BFA (array-dsc.rx.da, val-dsc.wx.dx, indexl.rl.v [,index2.rl.v]) 


Format A = B(l%) 

generates JSB in-val.wb.v = BAS$FET_FA_B_R8 (array-dsc.rb.da, indexl .rl.v [,index2.rl.v]) 
JSB in-val.wd.v = BAS$FET_FA_D_R8 (array-dsc.rd.da, indexl.rl.v [,index2.rl.v]) 
JSB in-val.wf.v = BAS$FET_FA_F_R8 (array-dsc.rf.da, indexl.rl.v [,index2.rl.v]) 
JSB in-val.wg.v = BAS$FET_FA_G_R8 (array-dsc.rg.da, indexl.rl.v [,index2.rl.v]) 
JSB in-val.wh.v = BAS$FET_FA_H_R8 (array-dsc.rh.da, indexl.rl.v [,index2.rl.v]) 

JSB in-val.wl.v = BAS$FET_FA_I_R8 (array-dsc.rl.da, indexl.rl.v [,index2.rl.v]) 

JSB in-val.ww.v = BAS$FET_FA_W_R8 (array-dsc.rw.da, indexl.rl.v [,index2.rl.v]) 

Arguments 

val-dsc 

The value. Passed by descriptor. The data types of the array element and the value must agree, 
array-dsc 

The array or virtual array. Passed by descriptor, 
indexl 

The first index for the array. Passed by immediate value. 
index2 

The second index for the array. Passed by immediate value. 







in-val 

The value from the array or virtual array. The data types of the value and the array element must 
agree. Passed by immediate value. 

BAS$FETCH-DESC 


2.3,3 Fetch Descriptor from Array 

BAS$FETCH_DESC returns the address of an element of a nonvirtual array of descriptors. 

Format 

generates CALL ret-value.wl.v = BAS$FETCH_DESC (array-dsc.rx.da, indexl.rl.v [, ... indexn]) 

Arguments 

array-dsc 

The array of descriptors. Passed by descriptor, 
indexl 

The first index into the array. Passed by immediate value, 
indexn 

The nth index into the array. Passed by immediate value, 
ret-value 

The address of the descriptor. Passed by immediate value. 

Messages 

BAS$_ARGDONMAT 

Arguments do not match. 

BAS$_NOTIMP 

Not implemented. 

BAS$_SUBOUTRAN 

Subscript out of range. 

BAS$_TOOFEWARG 
Too few arguments. 

BAS$_TOOMANARG 
Too many arguments. 

BAS$MOVE-ARRAY 


2.3.4 Move Array to Buffer or Buffer to Array 

BAS$MOVE_ARRAY decodes the parameters to move either an array to the buffer or the buffer to an 
array. This routine supports the BASIC MOVE TO and MOVE FROM statements when applied to 
arrays. 
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Format 


generates CALL BAS$MOVE_ARRAY (src.mq.r, dest.mq.r [Jen.rl.v]) 

Arguments 

src 

The source data. The data is either a static string (buffer) or an array. Passed by reference, 
dest 

The destination data. The data structure is opposite to the structure of the source data. Passed by 
reference. 

len 

The length of the data. Passed by immediate value. 

Messages 

BAS$_PROLOSSOR 
Program lost, sorry. 

BAS$_MOVOVEBUF 

MOVE overflows buffer. 

BAS$_NOTIMP 

Not implemented. 




BAS$REMAP-ARRAY 

2.3.5 Remap an Array 

BAS$REMAP_ARRAY remaps an array of descriptors. Remapping an array involves updating the 
pointer field in the descriptor of each element and the length field for strings. The length in the array 
element descriptor is always used for records. 

This procedure supports the BASIC REMAP statement. 

Format 

generates CALL BAS$REMAP_ARRAY (buffer.rx.ds, array.mx.dx, [length.rl.v]) 

Arguments 

buffer 

The MAP storage area. Passed by descriptor, 
array 

The remapped array. Passed by descriptor, 
length 

The string length. The default value is 16 for strings. Passed by immediate value. 


# 







Messages 

BAS$_REMOVEBUF 

The REMAP operation overflows the buffer. 

OTS$_FATINTERR 
Fatal internal error. 


BAS$STORE_BFA 


2.3.6 Store Data Item in Array 

BAS$STORE_BFA and BAS$STORE_BFA_OFF store a value in an array or virtual array. The source of 
the value is passed by descriptor. BAS$STORE_BFA_OFF is a special routine for record arrays. The 
offset specifies an element in the record. 

BAS$STO_FA_RDX stores a string in an array or virtual array. The string is passed by reference. The 
compiler uses this entry point to avoid creating a descriptor for a string constant. 

BAS$STO_FA_d_R8 stores a number in an array or virtual array. Permissible data types (d) are byte 
integer (B), D_floating (D), F_floating (F), G_floating (G), H_floating (H), longword integer (L), or 
word integer (W). 

Format B$(l%) = A$ 

generates CALL BAS$STORE_BFA (val-dsc.rx.d, array-dsc.wx.da, indexl.rl.v [,index2.rl.v]) 

Format B$(l%)::element = A$ 

generates CALL BAS$STORE_BFA_OFF (val-dsc.rx.d, array-dsc.wx.da, offset.rlu.v, indexl .rl.v 
[,index2.rl.v]) 

Format B$(l%) = “String Constant” 

generates CALL BAS$STO_FA_RDX (str-len.rl.v, str-adr.rt.r, array-dsc.wx.da, indexl .rl.v 

[,index2.rl.v]) 


Format B(l%) = A 


generates 


JSB BASSSTO—FA_B_R8 (out-val.rb.v, array-dsc.wb.da, indexl.rl.v [,index2.rl.v]) 
JSB BAS$STO_FA_D_R8 (out-val.rd.v, array-dsc.wd.da, indexl.rl.v [,index2.rl.v]) 
JSB BAS$STO_FA_F_R8 (out-val.rf.v, array-dsc.wf.da, indexl.rl.v [,index2.rl.v]) 
JSB BAS$STO-FA_G_R8 (out-val.rg.v, array-dsc.wg.da, indexl.rl.v [,index2.rl.v]) 
JSB BAS$STO_FA_H_R8 (out-val.rh.v, array-dsc.wh.da, indexl.rl.v [,index2.rl.v]) 

JSB BAS$STO-FA_l_R8 (out-val.rl.v, array-dsc.wl.da, indexl.rl.v [,index2.rl.v]) 

JSB BAS$STO_FA_W_R8 (out-val.rw.v, array-dsc.ww.da, indexl.rl.v [,index2.rl.v]) 


Arguments 

val-dsc 

The value. Passed by descriptor. The data types of the array element and the value must agree. 
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array-dsc 

The array or virtual array. Passed by descriptor, 
indexl 

The first index for the array. Passed by immediate value. 
index2 

The second index for the array. Passed by immediate value. (Present only if DSC$B_DIMCT = 2 
in the array descriptor.) 

offset 

The offset into the record. Passed by immediate value, 
str-len 

The length of the string to be stored. Passed by immediate value, 
str-adr 

The string to be stored. Passed by reference, 
out-val 

The value to be stored in the array or virtual array. The data types of the value and the array 
element must agree. Passed by immediate value. 

2.3.7 Register Usage 

Table BAS—2 shows the register in which each argument is passed for the JSB entry points. 

Table BAS—2: Register Usage 


Routine(s) 

Parameter-Register 

BAS$FETCH_BFA 

array-dsc - RO 
val-dsc - R1 
indexl — R2 
index2 — R3 

BAS$FET_FA_B_R8 

array-dsc - RO 

BAS$FET_FA_D_R8 

indexl - R1 

BAS$FET_FA_F_R8 

BAS$FET_FA_G_R8 

BAS$FET_FA_H_R8 

BAS$FET_FA_I_R8 

BAS$FET_FA_W_R8 

index2 - R2 

BAS$STORE_BFA 

val-dsc - RO 
array-dsc - R1 
indexl - R2 
index2 - R3 

BAS$STORE_BFA_OFF 

val-dsc - RO 
array-dsc - R1 
offset - R2 
indexl - R3 

BAS$STO_FA_RDX 

str-len - RO 
str-adr - R1 
array-dsc - R2 
indexl — R3 
index2 - R4 


(continued on next page) 







Table BAS—2: Register Usage (Cont.) 


Routine(s) 

Parameter-Register 

BAS$STO_FA_B_R8 

out-val — RO 

BAS$STO_FA_D_R8 

array-dsc - R1 

BAS$STO_FA_F_R8 

indexl - R2 

BAS$STO_FA_G_R8 

index2 - R3 

BAS$STO_FA_H_R8 


BAS$STO_FA_l_R8 


BAS$STO_FA_W_R8 



BASSREAD 


2.4 Internal Input 

Another way to provide a program with data is to build a data block for BASIC to read during 
execution. Consequently, you do not interact with BASIC while the program is running. Instead, you 
supply a pool of data to the program in advance. 

A READ statement causes the variables it lists to be assigned the next available constants, in sequen¬ 
tial order, from the collection of DATA statements. BASIC has a data pointer to keep track of the data 
being READ. Each time the READ statement requests data, BASIC retrieves the next available constant 
indicated by the data pointer. 

In some programs you may need to read the same data more than once. BASIC provides the RESTORE 
statement for this purpose. The RESTORE statement resets the data pointer to the beginning of the first 
DATA statement in the current program unit. 

BAS$READ initializes the I/O system to perform a READ of a compile time initialized DATA area. 

BAS$MAT_READ initializes the I/O system to place values from a DATA area initialized at compile 
time into arrays. 

BAS$RESTORE_DAT restores the current DATA pointer, so it again points to the beginning of the 
DATA text. The BASIC RESTORE statement calls this routine. 


Format 

READ ABC 

generates 

CALL BAS$READ 

Format 

RESTORE 

generates 

CALL BAS$RESTORE_DAT 

Format 

MAT READ 

generates 

CALL BAS$MAT_READ 

Implicit Inputs 



BAS$I_IN-BEG—DA 

The offset to the beginning of the DATA string (in the argument list to the routine that initialized 
the frame). 

BAS$I_INIT_REL 

The base of the preceding offset. 


September 1982 


File Processing Support BAS 32.3 



BSF$A_INIT_ARG 

The argument list that contains BAS$I_IN_BEG_DA. 

Notes 

This procedure manipulates the frame of its caller, which must be a BASIC frame. 
BAS$RESTORE_DAT verifies that its caller is a BASIC program unit by checking for the address of 
BAS$HANDLER in O(FP) in the frame of its caller. 


BAS 32.4 
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Chapter 3 

Auxiliary I/O Support 


This chapter describes routines that support BASIC auxiliary I/O. It discusses the OPEN, CLOSE, 
FREE, and UNLOCK statements. It also describes routines that return file status information and 
routines that perform terminal functions. 


BAS$OPEN 


3.1 OPEN Statement 

The OPEN statement enables you to create a new file or access an existing file. With this statement 
you can explicitly define the aspects of each data transfer operation, including the structure of the file 
and its file sharing capabilities. 


BASSOPEN supports the BASIC OPEN statement. BAS$OPEN takes two formal parameters: the ad¬ 
dress of the OPEN option block and the address of an array of signed longwords that describe the keys 
for an indexed file. This procedure either opens a file, permitting use of the logical unit number by 
BASIC I/O statements, or signals an error message and stops program execution. 


Format OPEN str-expl AS FILE #chnl-exp1 

generates CALL BASSOPEN (open-arg-blk.mz.r [,key-info-blk.rl.ra]) 
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Arguments 

open-arg-blk 

The option block. Passed by reference. The layout of the option block is: 

A 

A + 4 
A + 8 
A +12 
A +16 
A + 20 
A + 24 
A -b 28 
A + 32 
A+ 36 
A + 40 
A + 44 
:A + 48 

:A + 52 


RFM 

ACCESS 

ORG 

COUNT 

FSZ 

RAT 

SPAN 

ALLOW 

FILE SPEC 

BLOCKSIZE 

RECORDSIZE 


MAP 


FILESIZE 


BUCKET 

EXTENDSIZE 

CONNECT 

(free) 

WINDOW 

(free) 

MLTIBF 

DEFAULTNAME 

USEROPEN 

LOGICAL UNIT 

VFC INFO 


UNLOCK 

MAPSIZE 


where: 

COUNT is the number of bytes remaining in the list. 


ORG represents the organization clause: 

0 terminal format 

1 virtual 

2 sequential 

3 relative 

4 indexed 

5 undefined 


ACCESS indicates what operations you can perform: 

0 modify 

1 modify 

2 write 

3 read 

4 scratch 

5 append 
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RFM 


is the record format: 


0 variable 

1 fixed 

2 variable 

3 VFC 

4 stream 


ALLOW specifies what operations you allow others to perform: 

0 none 

1 modify 

2 write 

3 read 

4 scratch 

5 none 

SPAN Bit 0 set, NO SPAN specified 

Bit 1 set, CONTIGUOUS specified 
Bit 2 set, NO REWIND specified 
Bit 3 set, TEMPORARY specified 
Bit 4 set, FOR OUTPUT specified 
Bit 5 set, FOR INPUT specified 
Bit 6 set, LUN is an address 
Bit 7 set, LUN is 16 bits (ref only) 

Bit 7 clear, LUN is full 32 bits 


RAT represents the RECORDATTR clause: 

0 no RECORDATTR clause 

1 FORTRAN specified 

2 CRLF specified 

3 NONE specified 

4 PRINT specified 

5 ANY specified 


FSZ 

is 

the 

FILE SPEC 

is 

the 

RECORDSIZE 

is 

the 

BLOCKSIZE 

is 

the 

MAP 

is 

the 

FILESIZE 

is 

the 

EXTENDSIZE 

is 

the 

BUCKET 

is 

the 


size of the VFC buffer, 
descriptor for the file name string, 
size of the record buffer in bytes, 
size of the magtape block in bytes, 
address of the user record buffer, 
size of the file in blocks, 
extend size in buckets, 
bucket size in blocks. 
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WINDOW 


s the number of retrieval pointers. 

CONNECT is the logical unit (LUN) to which to connect. 

MLTIBF is the number of I/O buffers. 

DEFAULTNAME is the default file name string descriptor. 

USEROPEN is the address of the user's open procedure. 

LOGICAL UNIT is the logical unit number or its address. 

VFC INFO is the address of the VFC buffer. 

MAPSIZE is the size of the MAP buffer. 

UNLOCK allows manual record locking if bit 0 set. 

key-info-blk 

The key information block. This parameter is required for an indexed OPEN statement. Passed by 
reference. The layout of the key information block is: 

B 

B + 4 
B + 8 
B + 12 
B +16 
B + 20 
B + 24 
B + 28 

Key descriptions 
repeated for each 
alternate key 


(free) 

FLDLEN 

KEYNLJM 

OFFSET 

FLAGS 

KEYLEN 

OFFSET1 

LEN1 

NUMSEG 

DTYPE 

OFFSET2 

LEN2 

OFFSET1 

LEN4 

OFFSET3 

LEN3 

OFFSET5 

LEN5 

OFFSET4 

OFFSET6 

LEN6 

OFFSET5 

(free) 

OFFSET7 

LEN7 



where: 


KEYNUM 

is the number of keys in this block. 

FLDLEN 

is the length of each key field. 

KEYLEN 

is the length of the base segment of this key. 

FLAGS 

Bit 0 set, duplicates are allowed. 

Bit 1 set, changes are allowed. 

Bits 2—7 are unused. 

OFFSET 

is the offset of the base segment of this key in the record 
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DTYPE 


is the RMS data type of this key: 


BN2 for unsigned word 

BN4 for unsigned longword 

IN2 for word 

IN4 for longword 

PAC for packed decimal 

STG for text and untranslated VAX data types 

NUMSEG is the number of additional segments in this key. 

LENn is the length of the nth additional segment of this key. 

OFFSETn is the offset of the nth additional segment of this key in the record. 

The fields KEYLEN through OFFSET7 make up one key description. If NUMSEG is less than seven, the 
next key description begins at the first longword boundary following the last offset. The first key 
description refers to the primary key, the second to the first alternate key, and so on. 
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13-16 The highest record number that can be written into the file, RMS field FAB$I_MRN. 

17-20 RMS field RAB$I_BKT. When performing sequential operations on a relative or indexed file, 

the record number of the last record acted upon. For nonsequential operations on a relative 
or indexed file, it remains unchanged from its previous value. For other organizations, this 
field is undefined. 

21-32 Zero. 

The FSP$ function will fail if the specified logical unit number is invalid or if the logical unit is not 

open. Logical unit zero always gives organization SEQUENTIAL, record format VARIABLE, record 

attributes NONE. All other bytes are zero. 

generates CALL BAS$FSP (result.wb.dx, unit.rlu.v) 

Arguments 

result 

The 32-byte result. Passed by descriptor. 

unit 

The logical unit number (#chn/-exp). Passed by immediate value. 


BAS$GETRFA 


3.4.3 Get Record File Address 

BAS$GETRFA returns the record file address (RFA) of the last record accessed for the specified 
channel. The six-byte RFA is stored in the location passed as a descriptor. 

Format 

generates CALL BAS$GETRFA (unit.rlu.v, rfa.wx.r) 

Arguments 

unit 

The logical unit number (#chn/-exp). Passed by immediate value, 
rfa 

The descriptor of the location where the six-byte RFA is to be stored. Passed by reference. 

BAS$STATUS 


3.4.4 Status of Last Logical Unit Opened 

BAS$STATUS returns the status of the last logical unit opened. The OPEN statement has saved the 
necessary bits in I_STATUS, an OWN cell shared by these routines. 

Format int-vbl = STATUS 

generates ret-status.wlc.v = BASSSTATUS 


September 1982 


Auxiliary I/O Support BAS 39 


Arguments 


ret-status 

A longword completion code ( int-vbl ) representing the status of the last opened logical unit. 
Passed by immediate value. Bits 0 through 5 reflect device characteristics as follows: 

Bit Characteristic 

0 Record-oriented 

1 Carriage-control 

2 Terminal device 

3 Directory device (disk) 

4 Single-directory device 

5 Sequential, block-oriented (magtape) 

3.5 Terminal Functions 

The following sections describe the BAS$ procedures that support terminal functions. 


BAS$CANTYPAHEAD 

3.5.1 Cancel Type-Ahead 

BAS$CANTYPAHEAD suppresses the type-ahead feature on the specified logical unit, 
generates CALL BAS$CANTYPAHEAD (unit.rlu.v) 

Arguments 

unit 

The logical unit number (#chn/-exp). Passed by immediate value. 

Implicit Outputs 

The suppress type-ahead flag is set. 


BAS$CCPOS 


3.5,2 Current Cursor Position 

BAS$CCPOS returns the current cursor position on the given logical unit unless zero is specified. 
Logical unit zero has input and output data bases. When logical unit zero is specified, BAS$CCPOS 
returns the current cursor position for the output data base. This procedure supports the BASIC 
function CCPOS. 

Format int-vbl = CCPOS (#chnl-exp) 

generates cursor-pos.wl.v = BAS$CCPOS (unit.rlu.v) 
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Arguments 


cursor-pos 

A longword integer value (int-vbl) representing the current cursor position of indicated logical 
unit. Passed by immediate value. 


unit 

The logical unit number (#chn/-exp). Passed by immediate value. 

Implicit Inputs 

Current cursor position for a logical unit. 


BAS$CTRLC 


3.5.3 Enable/Disable CTRL/C Traps 

BAS$CTRLC enables CTRL/C traps, so a CTRL/C will cause the user's program to take an ON ERROR 
GOTO branch. 

BAS$RCTRLC disables CTRL/C traps, so a CTRL/C will cause the user's program to stop, as usual. 
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Chapter 4 

Format Processing, Conversion, and Comparison 


This chapter discusses the procedures that convert data from one type to another for input and output. 
It also describes the BAS$ routines that manipulate and compare strings and those that perform 
exponentiation. 

4.1 Formatted Output Conversion 

The following sections describe the BAS$ facility procedures available for formatted output 
conversion. 


BAS$CHANGE-NA-S 


4.1.1 Convert Array of Numbers to String 

BAS$CHANGE_NA_S changes an array of numbers to a string. The first number is the length of the 
string. 

Format CHANGE num-array TO str-vbl 

generates CALL BAS$CHANGE_NA_S (in-str.rx.da, out-str.wt.dx) 

Arguments 

in-str 

The source array (num-array). The numbers can be word, longword, F_floating, or D_floating. 
The array can be one- or two-dimensional. Passed by descriptor. 

out-str 

The destination string (str-vbl). The string can be dynamic or static. Passed by descriptor. 
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4.1.2 Convert Byte to a One-Character String 

BAS$CHR converts an unsigned byte integer to a one-character string according to the semantics of 
the destination string. The value of the input byte can vary from 0 to 255. 

Format str-vbl = CHR$(int-exp) 

generates CALL BAS$CHR (out-str.wt.dxl, value.rbu.v) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
value 

The ASCII character ( int-exp) to be converted. Passed by immediate value. 


BAS$CVT-OUT-X-E 


4.1.3 Convert a Number to E-format 

BAS$CVT_OUT_x_E converts a number to explicit point scaled notation (E-format). These routines 
support the BASIC statements PRINT and PRINT USING. 

BAS$CVT_OUT_F_E converts a single-precision F_floating number and returns up to six significant 
digits. 

BAS$CVT_OUT_D_E converts a double-precision D_floating number and returns up to 16 signifi¬ 
cant digits. 

BAS$CVT_OUT_G_E converts a G_floating number and returns up to 15 significant digits. 
BAS$CVT_OUT_H_E converts an H_floating number and returns up to 33 significant digits. 
BAS$CVT_OUT_P_E converts a packed decimal number and returns up to six significant digits. 

Format 

generates CALL BAS$CVT_OUT_x_E (value.rx.z, num-int.rlu.v, num-fra.rlu.v, flags.rlu.v, 

out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] [,currency.rt.dxl] [,digit-sep.rt.dx1] 
[,radix-pt.rt.dx1]) 

Arguments 

value 

The floating-point or packed decimal value to be converted. Passed by reference except packed 
decimal values. They are passed by descriptor. 

num-int 

The number of integer digits in the output string. Passed by immediate value. 
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num-fra 

The number of fraction digits in the output string. Passed by immediate value, 
flags 

The special editing control flags. None is used at present. Passed by immediate value, 
out-str-len 

The length of the output string. Passed by reference, 
out-str 

The output string. Passed by descriptor, 
sca-fac (BAS$CVT_OUT_D_E) 

The BASIC scale factor. The value can vary from zero to minus six. Passed by immediate value. 

currency (PRINT USING only) 

The currency symbol. Passed by descriptor. 

digit-sep (PRINT USING only) 

The digit group separator. Passed by descriptor. 

radix-pt (PRINT USING only) 

The radix point. Passed by descriptor. 

Return Status 

1 

Success. The value was converted as required. 

0 

Failure. The value did not fit in the output string as described. 

Messages 

OTS$_FATINTERR 

Fatal internal error. Wrong number of arguments. 

Notes 

The optional parameter sca-fac is only called for by BAS$CVT_OUT_D_E. For calls to the other 
procedures, sca-fac is not required, and you do not have to supply a dummy value to advance to the 
next parameter. 


BAS$CVT-OUT-x-G 


4.1.4 Convert a Number to E- or F-format 

BAS$CVT_OUT_D_G, BAS$CVT_OUT_G_G, or BAS$CVT_OUT_H_G converts a floating-point 
number to either E- or F—format depending on its value. 

If a number can be represented in num-digits without any loss of accuracy, then the number is 
returned in F-format. Otherwise, the number is returned in E—format. The default value for num-digits 
is six. 
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BAS$CVT_OUT_P_G converts a packed decimal number to F-format. A packed decimal number by 
definition will never print in E-format. 

These routines support PRINT, PRINT USING, NUM$, and STR$. 

Format 

generates CALL BAS$CVT_OUT_x_G (value.rx.z, flags.rlu.v, out-str-len.wlu.r, out-str.wt.dxl 
[,sca-fac.rb.v] [,num-digits.rl.v] 

Arguments 

value 

The floating-point or packed decimal number to be converted. Passed by reference except packed 
decimal numbers. They are passed by descriptor. 

flags 

The special editing control flags: 


Bit 

Set/Clear 

Meaning 

0 

Set 

No leading or trailing spaces 


Passed by immediate value, 
out-str-len 

The destination string length. Passed by reference, 
out-str 

The destination string. Passed by descriptor, 
sca-fac (BAS$CVT_OUT_D_G only) 

The BASIC scale factor for D_floating values. The value can vary from zero to minus six. Passed 
by immediate value. 

num-digits 

The number of digits carried in an F-format conversion. The default value is six. Passed by 
immediate value. 

Return Status 

1 

Success. The value was converted as required. 

0 

Failure. The value did not fit in the field described. 

Messages 

OTS$ — FATINTERR 

Fatal internal error. 
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Notes 


The optional parameter sca-fac is only called by BAS$CVT_OUT_D_G. For calls to the other proce¬ 
dures, sca-fac is not required, and you do not have to supply a dummy value to advance to the next 
parameter. 


BAS$CVT_OUT_x_F 


4.1.5 Convert Number to F-format 

BAS$CVT_OUT_x_F converts a number to explicit point unsealed notation (F—format) right justified. 
The BASIC PRINT USING and NUM1$ support code use these routines. 

BAS$CVT_OUT_D_F converts a D_floating number and returns up to 16 significant digits. 

BAS$CVT_OUT_F_F converts an F_floating number and returns up to six significant digits. 

BAS$CVT_OUT_G_F converts a G_floating number and returns up to 15 significant digits. 

BAS$CVT_OUT_H_F converts an H_floating number and returns up to 33 significant digits. 

BAS$CVT_OUT_P_F converts a packed decimal number and returns up to 31 significant digits. 

Format 

generates CALL BAS$CVT_OUT_x_F (value.rx.z, num-int.rlu.v, num-fra.rlu.v, flags.rlu.v, 
out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] [,currency.rt.dxl] [,digit-sep.rt.dx1] 
[,radix-pt.rt.dx1]) 

Arguments 

value 

The floating-point or packed decimal value to be converted. Passed by reference except packed 
decimal values. They are passed by descriptor. 

num-int 

The number of integer digits in the output string. Passed by immediate value, 
num-fra 

The number of fraction digits in the output string. Passed by immediate value, 
flags 

The special editing control flags as follows: 


Bit 

Set/Clear 

Meaning 

0 

Set 

No leading or trailing spaces 

1 

Set 

Trailing sign 

2 

Set 

Insert commas 

3 

Set 

Float currency symbol 

4 

Set 

Asterisk fill to left of most significant digits 

5 

Set 

Floating decimal point, disregard num-int and num-fra 

6 

Set 

A decimal point is required 
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Passed by immediate value. 


out-str-len 

The length of the output string. Passed by reference, 
out-str 

The output string. Passed by descriptor, 
sca-fac (BAS$CVT_OUT_D_F only) 

The BASIC scale factor. The values can vary from zero to minus six. Passed by immediate value. 

currency (PRINT USING only) 

The currency symbol. Passed by descriptor. 

digit-sep (PRINT USING only) 

The digit group separator. Passed by descriptor. 

radix-pt (PRINT USING only) 

The radix point. Passed by descriptor. 

Return Status 

1 

Success. The value was converted as required. 

0 

Failure. The value did not fit in the output string as described. 

Messages 

OTS$_FATINTERR 
Fatal internal error. 

Notes 

The optional parameter sca-fac is only called by BAS$CVT_OUT_D_F. For calls to the other proce¬ 
dures, sca-fac is not required, and you do not have to supply a dummy value to advance to the next 
parameter. 

BAS$FORMAT-x 

4.1.6 Convert a Data Item to a Formatted String 

BAS$FORMAT_x converts a data item according to a format string and the rules of the BASIC 
PRINT USING statement. These routines call the BASIC format interpreter, which can allocate space 
to the destination string. 

BAS$FORMAT_D converts a D_floating number. 

BAS$FORMAT_F converts an F_floating number 
BAS$FORMAT_G converts a G_floating number. 

BAS$FORMAT_H converts an H_floating number. 

BAS$FORMAT_P converts a packed decimal number. 
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BAS$FORMAT_T converts a string. 

Format str-vbl = FORMAT$(exp, str-exp) 

generates CALL BAS$FORMAT_x (out-str.wt.dxl, value.rx.z, format.rt.dxl) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
value 

The floating-point number, packed decimal number, or text string (exp) to be converted. Floating¬ 
point numbers are passed by value. Packed decimal numbers and text strings are passed by 
descriptor. 

format 

The format string (str-exp). Passed by descriptor. 

Messages 

STR$_INSVIRMEM 

Insufficient virtual memory for destination string allocation. 


BAS$NUM—x 

BAS$NUM_x converts a number to a numeric string using the semantics of the BASIC PRINT state¬ 
ment. The returned numeric string is preceded by one space for positive numbers and by a minus sign 
for negative numbers. The string is always followed by one space. 

BAS$NUM_F converts an F_floating number. 

BAS$NUM_D converts a D_floating number. 

BAS$NUM_G converts a G_floating number. 

BAS$NUM_H converts an H_floating number. 

BAS$NUM_L converts a longword integer. 

BAS$NUM_P converts a packed decimal number. 

Format 

generates CALL BAS$NUM_x (out-str.wt.dxl, value.rx.z) 

Arguments 

out-str 

The output string. Passed by descriptor, 
value 

The F_floating, D_floating, G_floating, F1_floating, longword integer or packed decimal number 
to be converted. Passed by immediate value except packed decimal numbers. They are passed by 
descriptor. 
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Notes 


These routines call other routines that allocate or deallocate space in virtual memory and so can 
signal errors related to virtual memory operations. 


BAS$NUM1—x 


BAS$NUM1_x converts a number to a numeric string with no leading or trailing spaces and no 
E-format. 

BAS$NUM1_F converts an F_floating number and returns six significant digits. 

BAS$NUM1_D converts a D_floating number and returns 16 significant digits. 

BAS$NUM1_G converts a G_floating number and returns 15 significant digits. 

BAS$NUM1_H converts an H_floating number and returns 33 significant digits. 

BAS$NUM1_L converts a longword integer and returns 10 significant digits. 

BAS$NUM1_P converts a packed decimal number and returns six significant digits. 

Format 

generates CALL BAS$NUM1_x (out-str.wt.dxl, value,rx.z) 

Arguments 

out-str 

The output string. Passed by descriptor, 
value 

The numeric value to be converted. Passed by immediate value except packed decimal numbers. 
They are passed by descriptor. 

Notes 

These routines call other routines that allocate or deallocate space in virtual memory and so can 
signal errors related to the virtual memory operations. 

BAS$NUM1_D violates the VAX-11 Calling Standard by passing D_floating numbers by immediate 
value. 

BAS$NUM1_G violates the VAX-11 Calling Standard by passing G_floating numbers by immediate 
value. 

BAS$NUM1_F1 violates the VAX-11 Calling Standard by passing H_floating numbers by immediate 
value. 
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BAS$STR—x 


4.1.7 Convert Number to Numeric String 

BAS$STR_x procedures format a number as the BASIC PRINT statement would, omitting leading and 
trailing spaces. The resultant string is copied to the destination string. 

Format str-vbl = STR$(num-exp) 

generates CALL BAS$STR$_x (out-str.wt.dxl, value.rx.z) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
value 

The floating-point, longword integer, or packed decimal value (num-exp) to be converted. 
Floating-point and longword integer values are passed by value. Packed decimal values are 
passed by descriptor. 

Notes 

BAS$STR_D violates the VAX—11 Calling Standard by passing D_floating values by immediate value. 
BAS$STR_G violates the VAX-11 Calling Standard by passing G_floating values by immediate value. 
BAS$STR_H violates the VAX-11 Calling Standard by passing H_floating values by immediate value. 

BAS$RAD 


4.1.8 Convert Word to Three-Character String 

BAS$RAD converts a 16—bit integer value representing a RADIX50 number to a destination string of 
three ASCII characters. The procedure supports the BASIC function RAD$. 

Format str-vbl = RAD$ (int-exp) 

generates CALL BAS$RAD (out-str.wt.dxl, rad50.rw.v) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor. 
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rad50 

A RADIX50 number (int-exp) to be converted to a three-character ASCII string. Passed by immedi¬ 
ate value. 

Notes 

This procedure is provided for compatibility only. Do not use it in new development. 


BAS$EDIT 


4.1.9 Edit String 

BAS$EDIT implements the BASIC EDIT function. For AST reentrancy, BAS$EDIT creates a local 
dynamic string descriptor and calls STR$COPY to copy the source string to the local string. Then the 
routine edits the local string. 

BAS$EDIT then calls STR$COPY to copy the edited string to the destination string. 

Format str-vbl = EDIT$(str-exp, int-exp) 

generates CALL BAS$EDIT (out-str.wt.dxl, in-str.rt.dxl, mask.rwu.v) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string (str-exp). Passed by descriptor, 
mask 

The edit control flags (int-exp): 


Bit 

Set/Clear 

Function 

0 

Set 

Character parity bits discarded 

1 

Set 

All spaces and tabs discarded 

2 

Set 

Carriage returns, line feeds, form feeds, deletes, and nulls discarded 

3 

Set 

Leading spaces and tabs discarded 

4 

Set 

Multiple spaces and tabs converted to single space 

5 

Set 

Lowercase letters converted to uppercase 

6 

Set 

Brackets converted to parentheses 

7 

Set 

Trailing spaces and tabs discarded 

8 

Set 

Editing suppressed for characters within quotation marks 


Passed by immediate value. 

Messages 

STR$_INSVIRMEM 

Insufficient virtual memory for the destination string allocation. 
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BAS$TRM 


4.1.10 Trim Trailing Tabs and Spaces 

BAS$TRM copies a source string into the destination string, deleting trailing tabs and spaces. 
BAS$TRM finds the last nonblank character by starting at the end of the source string and using each 
character to search a table that has a flag for spaces and tabs. 

Format str-vbl = TRM$(str-exp) 

generates CALL BASSTRM (out-str.wt.dxl, in-str.rt.dxl) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string ( str-exp ). Passed by descriptor. 

Messages 

STR$_INSVIRMEM 

Insufficient virtual memory for destination string allocation. 

4.2 Formatted Input Conversion 

The following sections describe the BAS$ facility procedures available for formatted input conversion. 


BAS$CHANGE-S-NA 


4.2.1 Convert String to Array of Numbers 

BAS$CHANGE_S_NA changes a source string to a list of numbers. The first number is the length of 
the string. The data type of the numbers can be any supported data type — integer, floating-point, or 
packed decimal. The array has one or two dimensions. 

Format CHANGE str-exp TO num-array 

generates CALL BAS$CHANGE_S_NA (in-str.rt.dxl, out-str.wx.da) 

Arguments 

in-str 

The source string (str-exp). Passed by descriptor, 
out-str 

The destination array ( num-array ). The data type of the array elements can be byte, word, long- 
word, F_floating, D_floating, G_floating, H_floating, or packed decimal. The array can have 
one or two dimensions. Passed by descriptor. 
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Messages 

BAS$K_ILLNUM 

Input is nonnumeric. 

BAS$VAI_x 

4.2.2 Convert Numeric String to Number 

BAS$VAI_x computes the numeric value of an input string by calling a VAX-11 Run-Time Library 

conversion routine. If the input string does not contain a legitimate number, the routine signals a 
noncontinuable error. The optional second argument can override information in the caller's frame. 
This second argument is not used by compiled code, but by the compiler at compile time. 

BAS$VAI_D returns the D_floating value in RO and R1. If a BASIC program calls this routine, the 

program passes its scaling information to it. Otherwise, it passes a zero. 

BAS$VAI_F returns the F_floating value in RO. 

BAS$VAI_G returns the G_floating value in R0:R1. 

BAS$VAI_H returns the H_floating value in R0:R3. 

BAS$VAI_L returns the longword integer value in RO. 

BAS$VAI_P returns the packed decimal value in the area pointed to by the destination descriptor. 

Format num-vbl = VAL(num-str) 

generates CALL ret-value.wx.z = BAS$VAI_x (in-str.rt.dxl [,sca-fac.rb.v]) 

Arguments 

in-str 

The source string (num-str). Passed by descriptor. 

sca-fac (BAS$VAI_D only) 

The scale factor. Passed by immediate value. 

ret-value 

The floating-point, longword integer, or packed decimal result ( num-vbl) of the conversion. 
Passed by immediate value except the packed decimal values. They are passed by descriptor. 

Messages 

BAS$K_ILLNUM 

Input string is nonnumeric. 

BAS$CVT—T—P 

4.2.3 Convert Numeric Text String to Packed Decimal 

BAS$CVT_T_P converts a text string representing a numeric value to a packed decimal value. 
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The syntax of a valid ASCII input string is: 

<0 or more spaces, nulls, or tabs> 

<" + ", or nothing> 

<0 or more digits> 
or nothing> 

<0 or more digits> 

<0 or more spaces, nulls, or tabs> 

<end of string> 

Format 

generates ret-status.wlc.v = BAS$CVT_T_P (inp-str.rt.dxl, value.wp.dsd [,flags.rl.v]) 
Arguments 

inp-str 

The input string. Passed by descriptor, 
value 

The packed decimal result of the conversion. Passed by descriptor, 
flags 

The caller-supplied flags, defined as follows: 


Bit 

Set/Clear 

Meaning 

0 

Set 

Embedded spaces are ignored. 


Clear 

Embedded spaces are in error. 

3 

Set 

Truncate packed-value without rounding. 


Clear 

Packed-value is rounded, if needed, 



to fit the field. 

4 

Set 

Embedded tab characters are ignored. 


Clear 

Embedded tab characters are in error. 


If flags is omitted, all bits are clear. Passed by immediate value. 

Return Status 

1 

Success. The input text was converted to packed decimal. 

0 

Failure. The input text could not be converted to the specified field. 

Notes 

BAS$CVT_T_P expects the length and scale fields in the packed decimal descriptor to be set by the 
caller. 

4.3 Internal Conversion Procedures 

The following sections describe the BAS$ procedures available for conversion between floating-point 
numbers and packed decimal numbers. 
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BAS$CVTxP 


4.3.1 Convert Floating-Point Number to Packed Decimal Number 

BAS$CVTxP converts a single floating-point number to a packed decimal number. BAS$CVTRxP 
converts a single floating-point number to a packed decimal number using rounding. 

BAS$CVTFP or BAS$CVTRFP converts an F_floating number. 

BAS$CVTDP or BAS$CVTRDP converts a D_floating number. 

BAS$CVTGP or BAS$CVTRGP converts a G_floating number. 

BAS$CVTHP or BAS$CVTRHP converts an H_floating number. 

Format 

generates CALL BAS$CVTxP (dst.wp.r, dst-len.rl.v, src.rx.r, scale.rl.v) 

Format 

generates CALL BAS$CVTRxP (dst.wp.r, dst-len.rl.v, src.rx.r, scale.rl.v) 

Arguments 

dst 

The packed decimal number. Passed by reference, 
dst-len 

The number of digits in the destination value. Passed by immediate value, 
src 

The floating-point number to be converted. Passed by reference, 
scale 

The power of 10 by which the internal representation of the floating-point number must be 
multiplied to have the same scale as the internal representation of the packed decimal number. 
Passed by immediate value. 

Messages 

BAS$_DECERR 

Decimal overflow. 

BAS$CVTPx 

4.3.2 Convert Packed Decimal Number to Floating-Point Number 

BAS$CVTPx converts a packed decimal number to a floating-point number. 

BAS$CVTPF returns an F_floating number. 

BAS$CVTPD returns a D_floating number. 


BAS 56 Format Processing, Conversion, and Comparison 


September 1982 





BAS$CVTPG returns a G_floating number. 

BAS$CVTPH returns an H_floating number. 

Format 

generates CALL BAS$CVTPx (dst.wx.r, src.rp.r, src-len.rl.v, scale.rl.v) 

Arguments 

dst 

The floating-point number. Passed by reference, 
src 

The packed decimal number to be converted. Passed by reference, 
src-len 

The number of digits in the source value. Passed by immediate value, 
scale 

The power of 10 by which the internal representation of the source number must be multiplied to 
have the same scale as the internal representation of the destination number. Passed by immedi¬ 
ate value. 

BAS$CVTRxP 

4.3.3 Convert Floating-Point Number to Packed Decimal Number (Rounded) 

See description of BAS$CVTxP. 

4.4 String Manipulation Procedures 

The following sections describe the BAS$ procedures available for string manipulation. 

BAS$SUM 


4.4.1 Arithmetic Procedures 

BAS$DIF calculates the difference between two numeric strings ( in-strl - in-str2) and places the result 
in the destination string. 

BAS$PLACE rounds or truncates a numeric string to a particular position and places the resultant 
string in the destination string. 

BASSPROD calculates the product of two numeric strings ( in-strl * in-str2) and places the result in the 
destination string (out-str). 

BAS$QUO calculates the quotient of two numeric strings (in-strl / in-str2) and places the resultant 
string in the destination string (out-str). No more than 55 digits of precision are permitted. 

BAS$SUM adds two numeric strings (in-strl + in-str2) and places the sum in the destination string 
(out-str). 
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Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 


str-vbl = DIF$(str-exp1, str-exp2) 

CALL BAS$DIF (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dx1) 
str-vbl = PLACE$(str-exp1, int-exp) 

CALL BAS$PLACE (out-str.wt.dxl, in-strl .rt.dxl, precision.rl.v) 
str-vbl = PROD$(str-exp1, str-exp2, int-exp) 

CALL BAS$PROD (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dxl, precision.rl.v) 
str-vbl = QUO$(str-exp1, str-exp2, int-exp) 

CALL BAS$QUO (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dxl, precision.rl.v) 
str-vbl = SUM$(str-exp1, str-exp2) 

CALL BAS$SUM (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dxl) 


Arguments 

in-strl 

The first source string (str-expl). The numeric string should be in explicit point, unsealed notation 
(F-format). Passed by descriptor. 

in-str2 

The second source string (str-exp2). The numeric string should be in explicit point, unsealed 
notation (F—format). Passed by descriptor. 

out-str 

The destination string (str-vbl). Passed by descriptor, 
precision 

The number (int-exp) of digits to retain in the resultant string. Passed by immediate value. 

Messages 

BAS$_DATFORERR 
Data format error. 

BAS$_DIVBY_ZER 

The divisor (in-str2) is zero. 

BAS$_FLOPOIERR 

Floating-point error. Precision (int-exp) is greater than 55. 

BAS$_ILLNUM 
Illegal number. 


BAS$EXTEND-DIVP 


4.4.1.1 Extended-Precision Packed Decimal Division — BAS$EXTEND_DIVP calculates the quotient 
of two scaled packed decimal strings of any length up to 31 digits. The quotient is rounded or 
truncated as specified. 
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Format 


generates CALL BAS$EXTEND_DIVP (dividend.rp.dsd, divisor.rp.dsd, quotient.mp.dsd, 
rnd-trunc.rb.v) 


Arguments 

dividend 

The value to the left of the division operator (/). Passed by descriptor, 
divisor 

The value to the right of the division operator (/). Passed by descriptor, 
quotient 

The result of the division operation. Passed by descriptor, 
rnd-trunc 

The round or truncate switch. If rnd-trunc is set to zero, the result is truncated. If rnd-trunc is set to 
five, the result is rounded. Passed by immediate value. 

Messages 

BAS$_DECERR 

Packed decimal overflow. 

BAS$_DIVBY_ZER 
Divide by zero. 


BAS$EXTEND-MULP 


4.4.1.2 Extended-Precision Packed Decimal Multiplication — BAS$EXTEND_MULP calculates the 
product of two scaled packed decimal values of any length up to 31 digits. The routine computes a 62 
digit result and then truncates or rounds the product to the specified length. 

Format 

generates CALL BAS$EXTEND_MULP (multiplicand.rp.dsd, multiplier.rp.dsd, product.mp.dsd, 
rnd-trunc.rb.v) 


Arguments 

multiplicand 

The value to the left of the multiplication operator (*). Passed by descriptor, 
multiplier 

The value to the right of the multiplication operator (*). Passed by descriptor, 
product 

The result of the multiplication operation. Passed by descriptor, 
rnd-trunc 

The round or truncate switch. If rnd-trunc is set to zero, the product is truncated. If rnd-trunc is set 
to five, the product is rounded. Passed by immediate value. 
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Messages 


BAS$_DECERR 

Packed decimal overflow. 

BAS$RSET 


4.4.2 Copy a String, Right-Justified, by Descriptor 

BAS$RSET copies a source string of any class or data type to a destination string of any class or data 
type. The source string is right-justified in the destination string with truncation or blank padding on 
the left. BAS$RSET uses fixed-length semantics on the destination string. Consequently, the current 
length for dynamic strings remains unaltered regardless of the length of the source string. A descriptor 
locates the source string. 

Format RSET str-vbl = str-exp 

generates CALL BAS$RSET (out-str.wt.dxl, in-str.rt.dxl) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string (str-exp). Passed by descriptor. 


BAS$RSET_R 


4.4.3 Copy a String by Reference 

BAS$RSET_R copies a source string of any class or data type to a destination string of any class or 
data type. The source string is right-justified in the destination string with truncation or blank padding 
on the left. BAS$RSET_R uses fixed-length semantics on the destination string. The current length for 
dynamic strings remains unchanged regardless of the length of the source string. The source string is 
located by reference. 

generates CALL BAS$RSET_R (out-str.wt.dxl, in-str-len.rlu.v,in-str-adr.rlu.v) 

Arguments 

out-str 

The destination string. Passed by descriptor, 
in-str-len 

The length of the source string. Passed by immediate value, 
in-str-adr 

The address of the source string. Passed by immediate value. 
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4.4.4 Extract a Substring 

The following routines extract a substring of a source string according to BASIC syntax. They then 
copy the extracted substring to the destination string. 

BAS$SEG extracts the characters starting at the position specified by the third parameter and continu¬ 
ing to the position specified by the fourth parameter. If the starting position is less than one, one is 
used. If the ending position is greater than the length of the source string, the length of the source 
string is used. If the starting position is greater than the ending position, a null string is returned. 

BAS$LEFT extracts the characters starting at the leftmost position (1) and continuing through the 
position specified by the third parameter. If the input character position is greater than the length of 
the input string, then the length of the input string is used. If the input character position is less than 
one, the destination string becomes a null string. 

BAS$RIGHT extracts the characters starting at the character position specified by the third parameter 
and continuing through the last character of the source string. If the input character position is less 
than two, the entire source string is copied to the destination string. If the input character position is 
greater than the length of the source string, the destination string becomes a null string. 

Format str-vbl = SEG$(str-exp, int-expl, int-exp2) 

generates CALL BASSSEG (out-str.wt.dxl, in-str.rt.dxl, start-pos.rw.v, end-pos.rw.v) 

Format str-vbl = LEFT$(str-exp, int-exp2) 

generates CALL BAS$LEFT (out-str.wt.dxl, in-str.rt.dxl, end-pos.rw.v) 


Format 

generates 

Arguments 


str-vbl = RIGHT$(str-exp, int-expl) 

CALL BAS$RIGHT (out-str.wt.dxl, in-str.rt.dxl, start-pos.rw.v) 


out-str 

The destination string {str-vbl). Passed by descriptor, 
in-str 

The source string (str-exp). Passed by descriptor, 
start-pos 

The character position ( int-expl ) of the first character extracted from the source string. For 
BAS$LEFT, the starting position is always equal to one. Passed by immediate value. 

end-pos 

The character position ( int-exp2 ) of the last character extracted from the source string. For 
BAS$RIGHT, the ending position is always equal to the length of the source string. Passed by 
immediate value. 
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BAS$STRING 


4.4.5 Generate a String 

BAS$STRING writes a specified number of duplicate characters into the destination string. 

• If the destination string is a fixed-length string, and the desired length is greater than the length of 
the destination string, the routine will copy only as many characters as the destination string will 
hold. 

• If the destination string is a fixed-length string, and the desired length is less than the length of the 
destination string, then the routine copies the desired number of characters and fills in the rest of 
the destination string with blanks. 

• If the destination string is a dynamic string, after execution of this procedure the length of the 
destination string is equal to the desired length. 


BAS$TAB produces a destination string with enough spaces to advance the output device to the 
position specified by the position parameter, if the string is printed. If the output device has moved 
beyond the specified position, the destination string is a null string. 

If the call is not lexically inside an I /O list, the compiler converts a call to the TAB function to a call 
to BASSSTRING. Thus, this procedure supports only the "true” BASIC TAB function. 

BAS$ANSI_TAB produces a destination string with enough spaces to advance the output device to 
the position specified by the position parameter, if the string is printed. This routine is similar to 
BASSTAB, but to meet minimal ANSI standards, BAS$ANSI_TAB includes extra checks on the input 
argument. 

Format str-vbl = STRING$(int-exp1, int-exp2) 

generates CALL BAS$STRING (out-str.wt.dxl, len.rw.v, char.rb.v) 

Format PRINT TAB(int-exp) 

generates CALL BAS$TAB (out-str.wt.dxl, position.rl.v) 


Format 

generates CALL BAS$ANSI_TAB (out-str.wt.dxl, position.rl.v) 


Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor. 


len 

The number ( int-expl ) of duplicate characters. Passed by immediate value, 
char 

The ASCII character ( int-exp2 ) to be duplicated. Passed by immediate value, 
position 

The target position ( int-exp ). Passed by immediate value. 
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Implicit Inputs 

The current position of the printing device, taken from the current I/O list. 

Messages 


BAS$_NEGTABNOT 

The position argument is negative. 

BAS$_SYNERR 

Syntax error. The BASIC TAB function was not called from within an I/O list. 


BAS$POS 


4.4.6 Return Relative Position of Substring 

BAS$POS takes two source strings of any data type and class and, starting at the specified position, 
returns the position of the second string within the first string. 

BAS$INSTR performs the same function as BAS$POS, but with the parameters in a different order. 


Format 

int-vbl 

generates 

CALL 

Format 

int-vbl 

generates 

CALL 


Arguments 

find-pos 

The starting position (int-exp) of the substring relative to the start of the source string. Passed by 
immediate value. 


in-str 


The source string (str-expl). Passed by descriptor. 


sub-str 

The substring ( str-exp2 ). Passed by descriptor. 


start-pos 

The position within the source string at which the procedure is to begin searching for the specified 
substring. If the value is less than one, BASIC assumes a starting position of one. If the value is 
greater than the source string length, an error is signaled. Passed by immediate value. 

Messages 

BAS$_PROLOSSOR 
Program lost, sorry. 


Notes 


If the specified substring does not exist, find-pos equals zero. 
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If the substring is null, and the specified starting position is less than or equal to one, find-pos equals 
one. 

If the substring is null, and the specified starting position is greater than one and less than or equal to 
the string's length, find-pos equals the specified starting position. 

If both the substring and the source string to be searched are null, find-pos equals one. 


BAS$POWxy 

4.5 Exponentiation Procedures 

BAS$POWDD calculates the D_floating result of raising a D_floating base to a D_floating exponent. 

BAS$POWDJ calculates the D_floating result of raising a D_floating base to a longword integer 
exponent. 

BAS$POWDR calculates the D_floating result of raising a D_floating base to an F_floating exponent. 

BAS$POWGG calculates the G_floating result of raising a G_floating base to a G_floating exponent. 

BAS$POWGJ calculates the G_floating result of raising a G_floating base to a longword integer 
exponent. 

BAS$POWHH calculates the H_floating result of raising an H_floating base to an H_floating 
exponent. 

BAS$POWHJ calculates the H_floating result of raising an H_floating base to a longword integer 
exponent. 

BAS$POWRD calculates the D_floating result of raising an F_floating base to a D_floating exponent. 

BAS$POWRR calculates the F_floating result of raising an F_floating base to an F_floating exponent. 

BAS$POWRJ calculates the F_floating result of raising an F_floating base to a longword integer 
exponent. 

BAS$POWJJ calculates the longword integer result of raising a longword integer base to a longword 
integer exponent. 

BAS$POWII calculates the word integer result of raising a word integer base to a word integer 
exponent. 

The exponentiation procedures use the following table for unusual cases: 


Base 

Exponent 

Result 

> 0 


Call OTS$POWxy, normal case 

= 0 

> 0 

Return zero 

= 0 

= 0 

Return one 

= 0 

< 0 

Error: divide by zero 

< 0 

even integer 

Call OTS$POWxz with -base 

< 0 

odd integer 

Call OTS$POWxz with -base, negate result 

c 0 

not integer 

Error: illegal argument 
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where: 


x is the base data type code 

y is the exponent data type code 

z is T for BAS$POWII and T for all others 

Format Z = X ** Y 

generates CALL ret-value.wx.v = BAS$POWxy (base.rx.v, exp.ry.v) 
Arguments 

base 

The floating-point or integer base (X). Passed by immediate value. 


exp 

The floating-point or integer exponent (Y). Passed by immediate value, 
ret-value 

The floating-point, or integer result (Z) of the exponentiation. Passed by immediate value. 

Messages 

BAS$_DIVBY_ZER 
Divide by zero. 

4.6 Comparison Procedures 

The following sections describe the BAS$ procedures available for comparing two entities. 

BAS$COMPxxx 


4.6.1 Compare Strings 

BAS$COMP compares two numeric strings by subtracting in-strl from in-str2 and testing the result for 
zero. 

Format int-vbl = COMP%(str-exp1, str-exp2) 

generates CALL diff.wl.v = BAS$COMP (in-strl .rt.dxl, in-str2.rt.dx1) 

BAS$COMPARE takes two source strings of any data type and class, compares their length and 
contents, and returns a zero if both are the same or a one if they are not. 

generates CALL match.wl.v = BAS$COMPARE (in-strl .rt.dxl, in-str2.rt.dxl) 

Arguments 

diff 

The result of the subtraction. Diff is zero if the two source strings are equal, minus one if in-strl is 
less than in-str2, or one if in-strl is greater than in-str2. Passed by immediate value. 

match 

The result of the comparison. Match is zero if the two source strings are exactly the same in length 
and content. Otherwise, match is one. Passed by immediate value. 
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in-strl 

The first source string. Passed by descriptor. 
in-str2 

The second source string. Passed by descriptor. 


BAS$CMPx—APP 


4.6.2 Compare Floating-Point Values 

BAS$CMPx_APP compares two floating-point values. If the values will be the same when displayed 
by a PRINT statement, they are considered approximately equal. This function is useful, for example, 
in computer-assisted education applications, when one value is computed while another is read from 
the terminal. If the two values print the same, you do not want to say: "Wrong! You typed x, the 
correct answer is x." 

BAS$CMPD_APP compares two D_floating values. 

BAS$CMPF_APP compares two F_floating values. 

BAS$CMPG_APP compares two G_floating values. 

BAS$CMPH_APP compares two H_floating values. 

generates ret-value.wlu.v = BAS$CMPx_APP (vail .rx.v, val2.rx.v) 

Arguments 

vail 

The first floating-point value to compare. Passed by immediate value. 
val2 

The second floating-point value to compare. Passed by immediate value, 
ret-value 

A longword integer value. If the two values are "approximately equal," that is, if their printed 
forms are the same, ret-value equals zero. Otherwise, ret-value equals one. Passed by immediate 
value. 

Arguments 

src-mat 

The source matrix (inp-array). Passed by descriptor, 
dst-mat 

The destination matrix ( out-array ). Passed by descriptor. 

Messages 

BAS$K_ARGDONMAT 

Block 2 or Block 3 of one of the descriptors is missing. 
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BAS$K_DATTYPERR 


One of the data types is unsupported. 
BAS$K_ILLOPE 


The source matrix descriptor is the same as the destination matrix descriptor. 


BAS$K_MATDIMERR 

The source matrix has only one dimension. 

Notes 

Overlap of the source and destination matrices will produce unpredictable results. 
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Arguments 


src-mat 

The source matrix ( inp-array ). Passed by descriptor, 
d st-mat 

The destination matrix ( out-array ). Passed by descriptor. 

Messages 

BAS$K_ARGDONMAT 

Block 2 or Block 3 of one of the descriptors is missing. 

BAS$K_DATTYPERR 

One of the data types is unsupported. 

BAS$K_ILLOPE 

The source matrix descriptor is the same as the destination matrix descriptor. 
BAS$K_MATDIMERR 

The source matrix has only one dimension. 

BAS$DET_x 


5.7.12 Retrieve the Determinant 

The determinant of the last matrix inverted by BAS$MAT_INV is stored in the OWN storage as a 
double-precision value. The BASIC initializer uses the store entry point to initialize the DET to zero; 
the matrix inversion routines use it to store the DET. 

BAS$DET_D returns the D_floating value stored in DET. 

BAS$DET_F converts the D_floating value in DET to F_floating and returns the rounded F_floating 
value. 

BAS$DET_G returns the determinant as a G_floating value. 

BAS$DET_H returns the determinant as an H_floating value. 

Format num-vbl = DET 

generates CALL result.wx.v = BAS$DET_x 

Arguments 

result 

The D_floating, G_floating, H_floating, or F_floating value ( num-vbl) determinant of the last 
inverted matrix. Passed by immediate value. 
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BAS$RT-DIM 


5.7.13 Dimension an Array at Run Time 

BAS$RT_DIM redimensions the size of an array at run time as follows: 

• Deleting any virtual memory previously allocated for the array elements 

• Updating the upper bounds with the new parameters 

• Allocating virtual memory for the new size 

Numeric array elements are initialized to zero, and string array elements (descriptors) have their 
length and pointer set to zero (null string). 

Format 

generates CALL BAS$RT_DIM (array.mx.da, boundl.rl.v [,bound2.rl.v, ... bound32.rl.v]) 

Arguments 

array 

The array to be redimensioned. Passed by descriptor, 
boundn 

The nth upper bound. The number of bounds passed must agree with the number of dimensions. 
The maximum number of dimensions is 32. Passed by immediate value. 

Messages 

BAS$_ARGDONMAT 

Arguments don't match. 

BAS$_MAXMEMEXC 

Maximum memory exceeded. 

BAS$_NOTIMP 

Not implemented. 

BAS$_PROLOSSOR 
Process lost. 

BAS$_SUBOUTRAN 

Subscript out of range. 

BAS$_TOOFEWARG 
Too few arguments. 

BAS$_TOOMANARG 
Too many arguments. 

5.8 Scaling and Descaling 

This section describes the compiled code support routines for scaling and descaling D_floating 
values. 
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BAS$DSCALE-D-R1 


5.8.1 Descale a D-floating Value 

BAS$DSCALE_D_R1 descales a D_floating value by dividing by the scale factor. If you are not in a 
BASIC frame, the scale factor is invalid and no operation is performed. 

Format BASIC 

generates CALL result.wd.v = BAS$DSCALE_D_R1 (value.rd.v) 

Arguments 

result 

The descaled, double-precision number. Passed by immediate value, 
value 

A D_floating number to be descaled. Passed by immediate value. 

Implicit Inputs 

The scale factor in the major frame. 

Notes 

BAS$DSCALE_D_R1 can get arithmetic faults. 


BAS$SCALE—D—R1 


5.8.2 Scale a D-floating Value 

BAS$SCALE_D_R1 scales a D_floating value by multiplying it by the scale factor and converting the 
result to an integer. If you are not in a BASIC frame, the scale factor is invalid and no operation is 
performed. 

Format BASIC 

generates CALL result.wd.v = BAS$SCALE_D_R1 (value.rd.v) 

Arguments 

result 

The scaled, double-precision number. Passed by immediate value, 
value 

A D_floating number to be scaled. Passed by immediate value. 

Implicit inputs 

The scale factor, in the major frame. 

Notes 

BAS$SCALE_D_R1 can get arithmetic faults. 
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BAS$XLATE 


5.9 XLATE Function 

The BASIC XLATE function is implemented by the BAS$XLATE procedure. For AST reentrancy, 
the routine creates a local dynamic string descriptor and calls STR$COPY to copy the source string 
to the local area (instead of using any mechanism to prevent AST level routines from writing to the 
source string). BAS$XLATE also creates a local dynamic string descriptor and calls STR$GET1 to 
create a string to receive the translated characters. Then, BAS$XLATE uses both local strings to do the 
translation. 

The routine uses MOVTUC to translate until the translated character is the NULL character. The 
NULL is not written to the destination string. After the translating is finished, BAS$XLATE calls 
STR$COPY to copy the edited string to the destination string. 

Format str-vbl = XLATE(str-exp1, str-exp2) 

generates CALL BAS$XLATE (out-str.wt.dxl, in-str.rt.dxl, table.rt.dxl) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string (str-expl). Passed by descriptor, 
table 

The translation table (str-exp2). Passed by descriptor. 

Notes 

BAS$XLATE calls STR$COPY, STR$GET1, and STR$FREE1 and can signal any of their error messages. 
BAS$XLATE allocates dynamic string space in temporary storage. 

This routine also calls LIB$GET_VM and LIB$FREE_VM, so it can cause their errors to be signaled. 
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Arguments 


arg-list (RO) 

The address of the list of information needed to build the frame. This value is passed in RO. Passed 
by immediate value. 

data-reloc (R1) 

The address of the major procedure's contribution to the data PSECT. This allows the argument list 
to be position independent. This value is passed in R1. Passed by immediate value. 

Implicit Outputs 

The values of R10 and R9, which point to the automatic and the temporary storage, respectively. 

Notes 

BAS$INIT_DFS_R8 leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the 
compiled BASIC code. BAS$END_DFS_R8 removes them. 


BAS$END-DFS-R8 


A.4.3 BAS$END_DFS_R8 

BAS$END_DFS_R8 removes a frame for a BASIC DEF* statement and deallocates all heap storage. 
The argument corresponds to BAS$INIT_DFS_R8 for validity checking. 

Format FNEND 

generates JSB BAS$END_DFS_R8 (arg-list.ra.v) 

Arguments 

arg-list 

The address of the descriptor for a list of information used to build the frame. Passed by immedi¬ 
ate value. 

Implicit Inputs 

The frame, as built by BAS$INIT_DFS_R8. 

Notes 

BAS$END_DFS_R8 deallocates the heap storage and virtual arrays local to this DEF* statement. 
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BASSCHAIN 

A.5 BASSCHAIN 

BAS$CHAIN stops execution of the current program and starts execution of the specified program. 

Format CHAIN str-exp 

generates CALL BASSCHAIN (prg-nam.rt.dx) 

Arguments 

prg-nam 

The name of the program (str-exp) to be executed. Passed by descriptor. 

Messages 

BAS$_NOTIMP 

Not implemented. User attempted to pass more than one parameter. 
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FOR$READ-SN 

FOR$WRITE-SN 

2.2.3 NAMELIST Controlled Sequential I/O 

The NAMELIST statement and the associated forms of I/O statements provide a simplified means of 
transmitting lists of data to and from files. The list of items that can be transferred is specified in a 
NAMELIST statement. The associated I/O statement includes the name of the NAMELIST as a control 
parameter. (See the VAX—7 1 FORTRAN Language Reference Manual for more information.) 

FOR$READ_SN initializes the I /O system to execute a NAMELIST controlled sequential access READ 
statement. 

FOR$WRITE_SN initializes the I/O system to execute a NAMELIST controlled sequential access 
WRITE statement. 

Format READ ([UNIT = ]u, [NML = ]N [,ERR = L1] [,END = L2] [,IOSTAT= ios]) 

READ N 
ACCEPT N 

generates CALL FOR$READ_SN (unit.rlu.v, namelist.rl.r [,err-adr.j.r [.end-adr.j.r]]) 

Format WRITE ([UNIT = ]u, [NML = ]N [,ERR = L1] [,IOSTAT = ios]) 

PRINT N 
TYPE N 

generates CALL FOR$WRITE_SN (unit.rlu.v, namelist.rl.r [,err-adr.j.r]) 

Arguments 

unit 

The specified logical unit (u). Passed by immediate value, 
namelist 

The address of the NAMELIST descriptor block (N). Passed by reference. 

Each NAMELIST descriptor block has the following form: 
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The NAMELIST group name and the variable names pointed to by the NAMELIST descriptor block 
must be in uppercase. The FORTRAN compiler or other calling program is responsible for con¬ 
verting the name strings to uppercase. In NAMELIST input data, case is significant only in charac¬ 
ter literals; the Run-Time Library converts NAMELIST input data to uppercase. 

Variable descriptors can have the following data types: BU (BYTE), WU, LU, W, L, F, D, G, H, T, 
FC, DC, and GC. The allowable descriptor classes are scalar and array. For the array class 
descriptor, the descriptor flags COLUMN, COEFF, and BOUNDS must be set, indicating column- 
major order and the presence of coefficient and bounds blocks. The number of dimensions must 
not exceed seven. 

err-adr 

The address of the next statement (L7) to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement (L2) to be executed if an end-of-file occurs. Passed by reference. 


FOR$READ-SU 
FOR$WRITE—SU 


2.2.4 Unformatted Sequential I/O 

FOR$READ_SU initializes the I/O system to execute an unformatted sequential access READ 
statement. 

FOR$WRITE_SU initializes the I/O system to execute an unformatted sequential access WRITE 
statement. 

Format READ (extu [,iostat] [,err] [,end]) [list] 

generates CALL FOR$READ_SU (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Format WRITE (extu [,iostat] [,err]) [list] 

generates CALL FOR$WRITE_SU (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Arguments 

unit 

The specified logical unit (extu). Passed by immediate value, 
err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference, 
list 

See Section 2.1.3 for explanation of element transmitters. 
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FOR$DELETE 

FOR$UNLOCK 


2.3 Indexed I/O 

FOR$DELETE deletes the current record of the indexed or relative organization file open on the 
specified logical unit. (See Section 2.4 for a description of FOR$DELETE_D.) 

FOR$UNLOCK frees a locked record on the specified logical unit. 

Format DELETE (u [,err] [,iostat]) 

generates CALL iostat.wl.v = FOR$DELETE (unit.rlu.v [,err-eql.rlu.v]) 

Format UNLOCK (u [,err] [,iostat]) 

generates CALL iostat.wl.v = FORSUNLOCK (unit.rlu.v [,err-eql.rlu.v]) 

Arguments 

unit 

The specified logical unit (u). Passed by immediate value, 
iostat 

A longword integer value that is positive if an error occurs, and zero if not. Passed by immediate 
value. 

err-eql 

An error flag. If set to one, the value of the error (if any) is returned in IOSTAT. If zero or omitted, 
all errors are signaled. Passed by immediate value. 
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Preface 


Objectives 

This division describes the Run-Time Library routines that support VAX-11 PASCAL V2. 

Procedure Descriptions 

The description of a procedure contains the following information: 

• A functional description 

• The language syntax that is likely to produce a call to this library routine 

• A format showing the calling sequence for the procedure, including the call form, the entry point 
name, and the parameter list 

• A list of arguments and their definitions 

Additional information about the routine, such as side effects or special messages that might be 
returned, is included where necessary. 

Document Structure 

This division is divided into seven chapters: 

Chapter 1 summarizes the VAX-11 PASCAL V2 run-time support and explains how these Run¬ 
Time Library routines handle errors. 

Chapter 2 describes the data structures that VAX-11 PASCAL V2 uses to identify and control files 
and the Run-Time Library routines that open and close files. 

Chapter 3 describes: (1) the procedures that perform I/O to all VAX—11 PASCAL V2 file types and 
(2) the functions that provide information about the files being processed. 

Chapter 4 describes the procedures and support functions that relate only to text files. 

Chapter 5 describes the functions that read from and write to a varying string. 

Chapter 6 describes the procedures that perform data conversion, test and manipulate data, and 

convert values to numeric strings. 

Chapter 7 describes the procedures that suspend program execution, transfer program control, 
manage dynamic memory, and access the system date and time. 
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Associated Documents 

This division refers to the following publications: 

• The VAX Architecture Handbook 

• The Guide to Creating Modular Procedures 

• The VAX-11 PASCAL Language Reference Manual 

• The VAX-11 PASCAL User's Guide. 


Conventions 

This division uses the parameter notation described in the Summary of Run-Time Library Entry Points 
(the gray pages at the back of this book) to describe the PAS$ entry points. 

The metalanguage that describes the VAX-11 PASCAL V2 syntax is explained in the VAX-11 PASCAL 
V2 documentation set. 
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Chapter 1 

Using VAX-11 PASCAL-Specific Support Routines 


This division describes the VAX-11 Run-Time Library routines that support VAX-11 PASCAL V2 
compiled code. This chapter summarizes the operations that the Run-Time Library routines perform 
for VAX-11 PASCAL V2: 

• Section 1.1 outlines the routines and what they do. 

• Section 1.2 describes how to call the routines. 

• Section 1.3 describes how the routines handle errors. 

1.1 Overview of the Run-Time Library PASCAL Support Routines 

The PASCAL-specific support routines form the Run-Time Library facility PAS$. These routines: 

• Process files 

• Perform I/O 

• Manipulate character strings 

• Operate on scalar data 

• Perform data conversions 

• Provide information about the files being processed 

1.1.1 File Processing 

VAX-11 PASCAL calls the Run-Time Library to open and close files. The compiler creates several 
data structures that the Run-Time Library routines use to identify a file and establish its characteristics. 
Chapter 2 describes the following data structures: 

• PASCAL File Variable (PFV) — uniquely identifies a PASCAL file 

• PASCAL File Descriptor (PFD) — records the characteristics of the file 

• PASCAL Key Descriptor Block (KDB) — defines the key fields for files with indexed organization 
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Chapter 2 also describes PAS$OPEN2 and PAS$CLOSE2, which support the VAX-11 PASCAL OPEN 
and CLOSE procedures. These two routines open and close files and associate with them the 
characteristics that the user has specified. 

1.1.2 General and Text File I/O Support Routines 

The Run-Time Library PASCAL-specific I/O routines implement VAX-11 PASCAL predeclared proce¬ 
dures that read from and write to RMS files. The PAS$ routines also support the PASCAL file-related 
routines EOL, ULB, EOLN, LINELIMIT, PAGE, and STATUS. 

Chapter 3 describes the routines that are used with all kinds of files. Chapter 4 describes the routines 
that can be used only with text files. 

1.1.3 Character String Manipulation Routines 

VAX-11 PASCAL allows a user program to use READV and WRITEV to read from and write to a 
varying-length string as if the string were a file component. These procedures are implemented as 
Run-Time Library PASCAL-specific routines, and are described in Chapter 5. 

1.1.4 Data Conversion and Manipulation Routines 

VAX-11 PASCAL performs most data conversions in line. However, explicit conversions are some¬ 
times necessary when a PASCAL transfer function is passed as an argument to another procedure. The 
conversion functions described in Chapter 6 perform these conversions when necessary. 

Run-Time Library routines are also called to perform these VAX-11 PASCAL functions: 

• The scalar functions ABS, CARD, EXPO, ODD, SQR, and UNDELINED 

• The functions that return binary, hexadecimal, and octal values: BIN, HEX, OCT 
These functions are described further in Chapter 6. 

1.1.5 Miscellaneous Support Routines 

The PASS facility provides a number of procedures and functions that control program flow, manage 
dynamic memory, and access the system clock. Some of these functions are intrinsic to VAX-11 
PASCAL V2, while others must be declared as external functions. 

The control procedures supported by the PASCAL-specific routines are: 

• HALT 

• GOTO 

The date and time procedures are: 

• CLOCK 

• DATE 

• TIME 
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The memory management procedures supported as intrinsic functions are: 

• NEW 

• DISPOSE 

The Run-Time Library also provides certain special-purpose procedures: 

• PAS$MARK2 and PAS$RELEASE2, which must be declared as external functions. They are provided 
for compatibility with other implementations of PASCAL. 

• PAS$CVT_x_T, which is available to convert floating-point numbers to text. 

1.2 PASCAL Calling Conventions 

Programs compiled by the VAX—11 PASCAL V2 compiler conform to the the VAX—11 Procedure 
Calling and Condition Handling Standard (see Appendix C of the VAX—/ 1 Run-Time Library Refer¬ 
ence Manual or the VAX Architecture Handbook for the text of this standard). This standard defines 
how parameters are passed, how function values are returned, and how routines receive and return 
control. VAX-11 PASCAL programs can call or be called by routines written in any VAX-11 native 
mode language that conforms to the calling standard. 

If you wish to call the PAS$ routines from another language, you should write a PASCAL routine to 
perform that function, then call that routine from your program. This method automatically generates 
the corrrect data structures and calling sequences. 

Section 1.2.1 describes how to call non-PASCAL programs, including Run-Time Library routines, 
from VAX—11 PASCAL V2. Section 1.2.2 describes how to call PASCAL routines from other 
languages. 


Note 

The data structures allocated and used by versions of VAX—11 PASCAL prior to Ver¬ 
sion 2 are different from and incompatible with those used by Version 2 and later 
versions. Do not attempt to pass VAX-11 PASCAL VI .x file variables to any procedure 
described in this division. 

1.2.1 Calling Non-PASCAL Programs from VAX-11 PASCAL 

Non-PASCAL routines, including Run-Time Library routines, must be declared in a VAX—11 PASCAL 
program as external functions or procedures. The PASCAL routine that calls them must supply the 
correct number and type of parameters, passed by the mechanism that the called routine expects. 

Since by default VAX-11 PASCAL passes parameters by reference (except for conformant arrays and 
conformant VARYING parameters, which are passed by descriptor), the calling program may need to 
include one of the mechanism specifiers %REF, %IMMED, %DESCR, and %STDESCR to ensure that 
the called routine receives the parameter correctly. Such a mechanism specifier may appear in either 
the routine declaration or the actual parameter list. See the VAX-11 PASCAL User's Guide for detailed 
information on how to call non-PASCAL routines from PASCAL. 

A VAX—11 PASCAL V2 program invokes Run-Time Library routines in the same way it invokes any 
other external routine. The external routine's declaration should describe the following: 

• The mechanism by which each parameter is passed (by immediate value, by reference, or by 
descriptor) 

• The data type of each parameter 
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The VAX-11 PASCAL User's Guide contains detailed information about how to translate the Run¬ 
Time Library parameter notation into VAX—11 PASCAL V2 semantics. 

1.2.2 Calling VAX-11 PASCAL Routines from Other Languages 

Because code generated by the VAX-11 PASCAL compiler conforms to the VAX-11 Procedure 

Calling and Condition Handling Standard, routines written in VAX-11 PASCAL can be called from 

other VAX—11 native mode languages. 

The calling program must ensure that the parameters it supplies are in the form required by the 

PASCAL routine. By default, VAX-11 PASCAL requires most parameters to be passed by reference. 

• When the called PASCAL routine requires a value parameter, the calling routine must provide the 
address of a value. The PASCAL routine copies this value from the passed address. 

• When the PASCAL routine requires a VAR parameter, the calling routine must supply the address of 
a variable. The PASCAL routine uses this address to access the actual parameter variable. Parame¬ 
ters that must be passed in this way include modifiable parameters and all files. 

• When the called PASCAL routine requires a formal procedure or function parameter, the calling 
routine must provide the address of a bound procedure value. 

• When the called PASCAL routine declares a formal conformant array or conformant VARYING 
parameter, the calling routine must supply the address of a descriptor. 


1.3 How VAX-11 PASCAL Support Procedures Handle Errors 

Three distinct classes of errors can occur in PASCAL programs: 

1. Errors detected by the Run-Time Library during file operations 

2. Errors detected by the Run-Time Library during nonfile operations 

3. Errors detected by the compiled code 

How each of these classes of errors is handled depends on actions by the Run-Time Library. 


1.3.1 Errors During Operations on Files 


As soon as a Run-Time Library procedure detects that an error has occurred while it is performing a 
file operation, it signals an error using LIB$SIGNAL or LIB$STOP. 

Two forms of messages are signaled for file errors. The first, and more common, form gives the name 
of the file variable (if any) and the actual file name, along with any additional information available. 
Some examples of this form are: 

'/.PAS-F-NOTUALTYP t "12$" is not a value of type "DOUBLE" 

Record 15 File "INPUT" Filename "SYS$INPUTs" 

(continued on next page) 
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"L P A S - F - I N V F I L S Y N * invalid filename syntax 
File "TESTFILE" Filename "TEST♦FILE" 

-RMS-F-TYP t error in file type 

The second form is limited to those serious errors for which the Run-Time Library is unable to obtain 
information about the file. At present, the three errors in this category are: 

• BUGCHECK, internal consistency failure in PASCAL Run-Time Library 

• FILALRACT, file is already active 

• INVFILVAR, invalid file variable 

These errors are treated as nonfile errors. See Section 1.3.2 for more information. 

1.3.1.1 Signal Arguments List for File Errors — The format of the signal arguments list as seen by a 
condition handler for file-related errors is shown in Figure PAS-1. 

Figure PAS-1: Signal Arguments List for File Errors 

- Count of longwords to follow 

- Condition code for primary message 

- Count of FAO arguments for primary message 

- Address of file variable (PFV) 


arg-count 

PAS$_abcmnoxyz 

FAO-count-1 


PFV-address 


Zero or more additional FAO arguments 


- Address of ASCIC file variable name 

- Address of RMS file name descriptor 


file-var-name 


filename 


Zero or more additional messages 


PC - PC at time of signal 

PSL - PSL at time of signal 


1.3.1.2 Recovering from File Errors — Because the severity of all PASCAL signaled messages is 
Severe, the program's default action after such an error is to exit. 
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There are several methods a program can use to change this default action: 

• The program may include the ERROR : = CONTINUE parameter in the call to the I /O procedure. 

• A user-written handler may continue execution. 

1.3.1.2.1 ERROR := CONTINUE — Most VAX—11 PASCAL I/O procedures contain an optional 
parameter ERROR. If specified as ERROR := MESSAGE, or omitted, the error is signaled normally. If 
specified as ERROR := CONTINUE, however, the compiled code passes the optional parameter 
error to the appropriate Run-Time Library procedure(s). This parameter is the address of an instruction 
in the caller's frame to which control should transfer in case of an error. 

Control is transferred by unwinding to that instruction in the frame of the routine that called the Run¬ 
Time Library procedure; no message is displayed. In most cases, the address passed is that of the 
instruction following the call. However, for cases that result in more than one call to the Run-Time 
Library, the address of the instruction following the last call is passed as the error parameter for each 
call. For example: 

READLN < A *C > 5 

generates four calls to the Run-Time Library (three to read the variables and one to perform the 
READLN). The address of the instruction following the last call to PAS$READLN2 is passed as the 
error parameter. 

If the value of error is zero, the RTL procedure to which it is passed assumes no parameter was 
passed. 

1.3.1.2.2 User-Written Condition Handler — If ERROR := CONTINUE is not specified, a 
user-supplied condition handler may attempt to handle the condition. The handler should take action 
only on specific conditions. The handler should not usually assume that any error is of the type it can 
recover from; it should resignal any conditions it does not want to explicitly handle. 

Each PASCAL error message has a standard 32—bit condition code and a symbolic name of the form 
PAS$_abcmnoxyz, where "abcmnoxyz" is the nine (or fewer) character abbreviation for the message 
as listed in the VAX-11 PASCAL User's Guide. The STS$V_MSG_NO field is always between 200 
and 999 for errors in this category. (See Appendix C of the VAX-11 Run-Time Library Reference 
Manual for more information about condition handling.) 

The form of the signal argument list for file-related errors is shown in Figure PAS-1. Note that the first 
FAO argument in the message is always the address of the file variable (PFV). (This argument is not 
used when the message is displayed by the system.) The handler may pass this address to PAS$RAB or 
PAS$FAB to obtain the RAB or FAB address for the file. (If the file has no RAB or FAB, zero is 
returned.) No other operations can be performed on the file while an error is in progress. 

If the handler does not want to recover from the error, it should resignal by returning with a function 
value of SS$_RESIGNAL. If it wants the program to continue, it may do so in three ways: 

1. Perform an up-level GOTO to an appropriate point, if the handler is a PASCAL function 
established with the VAX-11 PASCAL procedure ESTABLISH. 

2. Unwind by calling the system service $UNWIND. 
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3. Cause execution to continue with the instruction following the last call to the Run-Time Library 
by returning SS$_CONTINUE. If this is done, the Run-Time Library procedure automatically 
unwinds to its caller. Note that this is identical to specifying ERROR : = CONTINUE except for 
the case of a multiple-call procedure. In this case, execution continues with the next call rather 
than with the instruction following the last call. 

1.3.2 Errors During Nonfile Operations 

PASCAL Run-Time Library procedures signal errors for nonfile operations using LIB$STOP. Some 

examples of this category of error are: 

7. PAS-F-ERRDURNEW t error during NEW 

-LIB-F- IN S VIR M E M t insufficient virtual memory 

7. PAS-F-FILALRACT * file "OUTPUT" is already active 


Note that some fatal file errors are treated as nonfile errors, as described in Section 1.3.1. 


1.3.2.1 Signal Arguments List for Nonfile Errors — The format of the signal arguments list as seen by 
a condition handler for nonfile errors is shown in Figure PAS—2. 

Figure PAS-2: Signal Argument List for Nonfile Errors 

- Count of longwords to follow 

- Condition code for primary message 

- Count of FAO arguments for primary message 


arg-count 

PAS$_abcmnoxyz 

FAO-count-1 


Zero or more additional FAO arguments 


Zero or more additional messages 


PC - PC at time of signal 

PSL - PSL at time of signal 


1.3.2.2 Recovering from Nonfile Errors — Because the severity of all PASCAL signaled messages is 
Severe, the default action after such an error is to exit. The only way a program can change this 
default action is to supply a condition handler. 
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A user-supplied condition handler may attempt to handle the condition. The handler should take 
action only on specific conditions. Usually, the handler should not assume that any error is of the 
type it can recover from; it should resignal any conditions it does not want to explicitly handle. 

Each PASCAL error message has a standard 32-bit condition code and a symbolic name of the form 
PAS$_abcmnoxyz, where "abcmnoxyz" is the nine (or fewer) character abbreviation for the message 
as listed in the VAX—11 PASCAL User's Guide. The STS$V__MSG_NO field is always between 1000 
and 1999 for errors in this category. (See Appendix C of the VAX-11 Run-Time Library Reference 
Manual for more information about condition handling.) 

The form of the signal argument list for nonfile errors is shown in Figure PAS—2. Because these errors 
are signaled with LIB$STOP, the handler can take only two recovery actions: 

1. Perform an up-level GOTO to an appropriate point, if the handler is a PASCAL function 
established with the VAX-11 PASCAL procedure ESTABLISH. 

2. Unwind by calling the system service $UNWIND. 

1.3.3 Errors Detected by Compiled Code 

When a VAX—11 PASCAL program requests run-time error checking, by default or by means of the 
/CHECK command qualifier or the CHECK routine attribute, the compiled code includes tests for the 
specified error conditions, such as out-of-bounds array references. Some examples of this category of 
error are: 

7, P A S - F - A R R I N D V A L * array index value is out of r a n 3 e 

7., PAS-F-CONCATLEN* string concatenation has more than G5535 characters 

Because inserting calls to LIB$SIGNAL in many places would cause the object code to grow unac¬ 
ceptably large, an alternate method is used. For any routine that has error checks, the compiled code 
enables PAS$HANDLER as a condition handler for that frame. Some errors are initiated by hardware- 
detected conditions, such as integer overflow. Others are caused by embedded HALT instructions, 
which cause SS$_OPCDEC (opcode reserved to DIGITAL fault) exceptions. These exceptions are 
intercepted by PAS$HANDLER, which converts them to PASCAL—specific exceptions, according to 
additional information in the compiled code. See the description of PAS$HANDLER in Section 1.3.4 
for more information. 

1.3.3.1 Signal Arguments List for Errors Detected by the Compiled Code — Figure PAS-3 shows the 
format of the signal arguments list as seen by a condition handler for errors detected by compiled 
code. 

Figure PAS—3: Signal Arguments List for Errors Detected by Compiled Code 


- Count of longwords to follow (3) 

- Condition code for primary message 

- PC at time of signal 

- PSL at time of signal 


arg-count 

PAS$_abcmnoxyz 

PC _ 

PSL 
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This format does not include an FAO count for the message because the signal argument list is created 
by intercepting a hardware-generated exception (which has no FAO count) and replacing the original 
condition code with the code of the appropriate PASCAL message. 

1.3.3.2 Recovering from Errors Detected by the Compiled Code — Because the severity of all 
PASCAL signaled messages is SEVERE, the default action after such an error is to exit. The only way 
a program can change this default action is by supplying a condition handler. 

A user-supplied condition handler may attempt to handle the condition. The handler should take 
action only on specific conditions. Usually, the handler should not assume that any error is of the 
type from which it can recover; it should resignal any conditions it does not want to explicitly handle. 

Each PASCAL error message has a standard 32-bit condition code and a symbolic name of the form 
PAS$_abcmnoxyz, where "abcmnoxyz" is the nine (or fewer) character abbreviation for the message 
as listed in the VAX-11 PASCAL User's Guide. The STS$V_MSG_NO field is always between 2000 
and 2063 for errors in this category. (See Appendix C of the VAX-1 1 Run-Time Library Reference 
Manual for more information about condition handling.) 

The form of the signal argument list for errors detected by the compiled code is shown in Figure 
PAS-3. The handler can take the following recovery actions: 

1. Perform an up-level GOTO to an appropriate point, if the handler is a PASCAL function 
established with the VAX-11 PASCAL procedure ESTABLISH. 

2. Unwind by calling the system service $UNWIND. 

3. Continue execution at the next instruction by returning the function value SS$_CONTINUE. 


PASSHANDLER 


1.3.4 The Language-Specific Condition Handler (PASSHANDLER) 

PASSHANDLER is a condition handler established by the compiled code in a procedure's frame. It 
need not be established if none of its services are required. These services are: 

1. To call any handler established with the ESTABLISH procedure. The bound procedure value 
for the user's handler is stored at —8(FP) in the frame. 

2. To intercept exceptions caused by run-time error checking in the compiled code and convert 
them to PASCAL—specific messages. This action is performed only for exceptions occurring in 
the frame that established PASSHANDLER. 

3. To close locally declared files upon an unwind. 

Format CALL PAS$FiANDLER ( sigargs.mlc.ra, mech.ml.ra ) 

Arguments 

sigargs 

Pointer to the signal arguments list, 
mech 

Pointer to the mechanism arguments list. 
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The compiled code has three methods of indicating that a run-time check should issue an error 
message. Each of these methods communicates to PAS$HANDLER a code in the range 0-63 that 
determines which message should be signaled. Table PAS-1 shows the exceptions recognized, the 
instruction that creates the exception, and the location of the code. 

Table PAS—1: Run-Time Exceptions Signaled by Compiled Code 


Exception 

Instruction 

Code Byte Location 

SS$_OPCDEC 

SS$_SUBRNG 

SS$__INTOVF 

HALT 

INDEX 

Any 

.BYTE after HALT 

TSTB #x (following instruction) 
TSTB #x (following instruction) 


If the exception is SS$_SUBRNG, and if the following instruction is not TSTB #x, then 
PAS$K_ARRINDVAL is assumed. 

Before resignaling, PASSHANDLER increments the signaled PC by two bytes to the next instruction. 
The codes and associated messages are shown in Table PAS-2. 

Table PAS—2: Codes and Messages for Errors Signaled by PAS$HANDLER 


Error 

Code 

Message 

PAS$K_ARRINDVAL 

0 

Array index value is out of range 

PAS$K_ARRNOTCOM 


Conformant array is not compatible 

PAS$K_ARRNOTSTR 


Conformant array is not a string 

PAS$K_CASSELVAL 


CASE selector value is out of range 

PAS$K_CONCATLEN 


String concatenation has more than 65535 characters 

PAS$K_PADLENERR 

5 

PAD length error 

PAS$K_PTRREFNIL 

6 

Pointer reference to NIL 

PAS$K_SETASGVAL 

7 

Set assignment value has element out of range 

PAS$K_SETCONVAL 

8 

Set constructor value is out of range 

PAS$K_STRASGLEN 

9 

String assignment length error 

PAS$K_STRCOMLEN 

10 

String comparison length error 

PAS$K_SUBASGVAL 

11 

Subrange assignment value is out of range 

PAS$K_SUBSTRSEL 

12 

SUBSTR selection error 

PAS$K_VARINDVAL 

13 

Varying index value is greater than current length 

PAS$K_ORDVALOUT 

14 

Ordinal value is out of range 


A code of PAS$K_IGNORE (63) means the exception is to be ignored. PASSHANDLER therefore 
simply continues without calling the user's handler. For example, PASSHANDLER continues when 
overflow checking is enabled, but a calculation involving the UNSIGNED datatype might overflow. 
Since UNSIGNED calculations are not supposed to cause overflow errors, PAS$K_IGNORE is used to 
tell PASSHANDLER to dismiss the error. 
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Chapter 2 

Files and File-Related Data Structures 


This chapter describes the Run-Time Library routines that open and close files for VAX-11 PASCAL. 

Section 2.1 describes the following data structures, which the Run-Time Library uses to identify and 
access files: 

• The PASCAL file variable (PFV) identifies a file. 

• The PASCAL file descriptor (PFD) contains information about the file that can be determined at 
compile time. 

• The PASCAL Key Descriptor Block (KDB) contains information about the keys defined for an 
indexed file. 

Section 2.2 describes the routines related to opening files: 

• PAS$OPEN2 opens files. 

• PAS$FAB returns a pointer to the RMS File Access Block (FAB). 

• PAS$RAB returns a pointer to the RMS Record Access Block (RAB). 

Section 2.3 covers the routines that close files: 

• PAS$CLOSE2 closes external files. 

• PAS$CLOSE_LOCAI_R3 closes the internal files declared by a PASCAL routine when that routine 

exits. 

The routines that perform I/O are described in Chapter 3. Routines that apply only to text files appear 
in Chapter 4. 

2.1 File-Related Data Structures 

PASCAL input and output procedures operate on entities called files. A PASCAL file encompasses 
three elements: 

1. The file variable , which is declared by the program and has a component type. 

2. The file buffer , which contains the actual data last read from or written to the file. The file 
buffer is a window on the sequence of file components. 

3. The file components , a sequence of objects of the file's component type. The physical form of 
the file components is the traditional sense of "file," such as a disk or tape. 
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A file has both static attributes (known at compile time) and dynamic attributes (changed at run time). 

These attributes are communicated to the Run-Time Library by three data structures: 

1. The PASCAL File Variable (PFV), which contains the dynamic information and points to the 
PASCAL File Descriptor and to the Run-Time Library's internal file control block. The PFV's 
address is passed to each Run-Time Library routine to uniquely identify a file. 

2. The PASCAL File Descriptor (PFD), which contains static information such as the file variable 
name and the file component's type and length. 

3. The PASCAL Key Descriptor Block (KDB), which describes the key fields in a record used to 
access an indexed file. If the file's component has no key fields declared, no KDB is used. 


2,1.1 The PASCAL File Variable (PFV) 

The PASCAL File Variable (PFV) is a dynamically or statically allocated block whose address is passed 
to the Run-Time Library to uniquely identify a file. It is 16 bytes in length. 

Note 

The data structures allocated and used by versions of VAX-11 PASCAL prior to Ver¬ 
sion 2 are different from and incompatible with those used by Version 2 and later. Do 
not attempt to pass VAX-11 PASCAL VI .x file variables to any procedure described in 
this division. 


The layout of the PASCAL File Variable is shown in Figure PAS-4. 

Figure PAS—4: The PASCAL File Variable (PFV) 


Address of file buffer 


Status 


Reserved Version 


Address of PFD 


Address of FCB 


PFV 


These fields contain the following information: 

PFV$A_BUFFER The address of the file buffer for this file. If the bit PFV$V_RELBUF is 

set, this field is a relative address whose base is the address of the PFV. 
If PFV$V_RELBUF is clear, the address is absolute. 

PFV$B_VERSION The version number of this PFV layout. The current version number is 

zero. If the PFV layout is altered in later versions, Run-Time Library 
routines will examine this field and, if the number is lower than the 
number of the currently supported version, will apply the defaults for 
that earlier version. 


Reserved 


Reserved for future use. Must be zero. 
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PFV$W_STATUS 


PFV$V_ VALID 


PFV$V_DFB 


PFV$V_EOF_ DEFINED 


PFV$V_EOLN 


PFV$V_RELBUF 


PFV$V_RELPFD 


PFV$V_OPEN 
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Status flags that the Run-Time Library sets to indicate the current status 
of the file. This word must be initialized to zero. The defined flags are: 

Bit 0 If set, the remaining status bits and file buffer contain 
valid information. If clear, PAS$LOOK_AHEAD must 
first be called to obtain valid information. This bit is 
meaningful only for text files. The primary use of this bit 
is to indicate that delayed device access (lazy look¬ 
ahead) may be in progress. No reference to the status 
bits or the file buffer of a text file may be made while 
PFV$V_VALID is clear. 

Bit 1 If this bit is set, the buffer is defined; that is, it accu¬ 
rately represents the current file component. UFB(f/7e- 
var) will return FALSE. If the buffer can no longer be 
guaranteed to accurately represent the current file com¬ 
ponent, the file buffer is said to be undefined, this bit is 
cleared, and UFB(/7/e-var) will return TRUE. 

This bit also serves for the EOF test, being clear if EOF 
( file-var ) is true. The compiled code may elect to check 
this bit for invalid references to an undefined file buffer. 

Bit 2 If this bit is set, EOF (file-var) is a valid test and 
PFV$V_DFB can be tested to determine whether the 
file pointer is positioned after the last component in the 
file. After some operations, EOF (file-var) is not a valid 
test to make and this bit is clear. 

Bit 3 This bit is set if EOLN (file-var) is true, that is, if the file 
pointer is positioned after the last character in the line 
in a text file. The bit is clear otherwise. This bit is used 
only for text files. 

Bit 11 When set, this bit indicates that the address in 

PFV$A_BUFFER (the pointer to the file buffer) is a rela¬ 
tive address whose base is the PFV address. The first 
time a Run-Time Library PASCAL support routine opens 
a file variable in which PFV$V_RELBUF is set, the ad¬ 
dress is resolved to an absolute address and the bit is 
cleared. The use of a relative address permits position- 
independent data. 

Bit 12 When set, this bit indicates that the address in 

PFV$A_PFD (the pointer to the PASCAL File Descrip¬ 
tor) is a relative address whose base is the PFV address. 
The first time a Run-Time Library PASCAL support rou¬ 
tine opens a file variable in which PFV$V_RELPFD is 
set, the address is resolved to an absolute address and 
the bit is cleared. The use of a relative address permits 
position-independent data. 

Bit 13 This bit, used only by the Run-Time Library, indicates 
whether the file is open. 
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PFV$V_FCB_VALID Bit 14 This bit tells the Run-Time Library that PFV$A_FCB 

points to a valid file control block (FCB). 

PFV$V_LOCK Bit 15 This bit is set to indicate that I/O is already active on 

this file. This bit is tested and set at the beginning of all 
I/O operations and cleared at the end, preventing recur¬ 
sive I/O. If the bit is already set when it is tested, an 
error is signalled. 

PFV$A_PFD This field contains the address of the PASCAL File Descriptor block, 

which is separately allocated by the compiler, possibly in read-only 
storage. If PFV$V_RELPFD is set, this address is relative to the begin¬ 
ning of the PFV. If clear, the address is absolute. 

PFV$A_FCB This field contains the address of the Run-Time Library's internal File 

Control Block (FCB), which is created when the file is opened. This 
field must be initialized to zero. 

2.1.2 The PASCAL File Descriptor (PFD) 

The PASCAL File Descriptor (PFD) contains static information about a file. The compiler may choose 

to allocate this block in read-only storage. 

Figure PAS—5 shows the layout of the PASCAL File Descriptor. 

Figure PAS—5: The PASCAL File Descriptor (PFD) 


Relative pointer to KDB — PFD 
Reserved Attributes 
Buffer length in bytes 
File variable name Count 


The fields of the PFD are as follows: 

PFD$A_KDB This field points to the PASCAL Key Descriptor Block (KDB). The ad¬ 

dress is relative to the start of the PFD. The compiler creates a KDB 
only for files with component record fields that have the KEY attribute; 
for other kinds of files, this field is zero, and there is no KDB. 

PFD$W_ATTRIB This word contains the attributes of the file that can be determined at 

compile time. All undefined bits must be zero. The following bits are 
defined and, if set, indicate that the listed condition is true: 

PFD$V_TEXT Bit 0 The file is of type TEXT. 

PFD$V_BINARY Bit 1 The file is of a nonvarying binary type. 
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PFD$V_ VARYING 


PFD$V_NOREAD 

PFD$V_ NOWRITE 

PFD$V_EXTERN 


PFD$V_STATIC 


Reserved 
PFD$I_LENGTFH 


PFD$T_NAME 


Bit 2 The file is of a varying string type. The allocated buffer 
is two bytes bigger than the maximum record size. 

Bit 3 The file variable was declared with the attribute 

WRITEONLY. 

Bit 4 The file variable was declared with the attribute 

READONLY. 

Bit 5 If this bit is set, the file is external; that is, it has been 
declared in the outermost block of the compilation unit 
or was listed in the PROGRAM or MODULE heading. 
Otherwise, the file is internal. 

Bit 6 The file variable is static; that is, it has not been allo¬ 
cated on the stack. If this bit is clear, the file is automat¬ 
ically closed when the routine that declares it exits. 
This bit is also set for files allocated by the NEW 
procedure. 

Reserved for future use. Must be zero. 

The length of the file buffer, in bytes. If the file component type is 
VARYING, this value includes two bytes for the length word. If the file 
is a text file, this value is ignored. The length of the file buffer is 
currently limited by RMS requirements, but this restriction may change 
in future versions. 

A counted ASCII string containing the name of the file variable. The 
string length is contained in the first byte. If the file variable has no 
name, the length byte must be zero. 


2.1.3 The PASCAL Key Descriptor Block (KDB) 

The PASCAL Key Descriptor Block (KDB) defines the key fields for files with indexed organization. 
This information is expressed in the program by KEY attributes specified for record fields. 

Figure PAS-6 shows the layout of the PASCAL Key Descriptor Block. 

Figure PAS—6: The PASCAL Key Descriptor Block (KDB) 


Reserved 

Count 

Reserved 

Size 

Dtype 


Byte offset into record 

Reserved 

Size 

Dtype 


Byte offset into record 


KDB 
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These fields contain the following information: 

KDB$B_COUNT The number of keys defined in the KDB. This value cannot exceed 

255. 

KDB$B_KEY_NUMBER The key number: 

0 - primary key 

1 = first alternate key 

2 = second alternate key 

and so on. 

The primary key is required, and up to 254 alternate keys may be 
included. 

The VAX standard descriptor data type code (DSC$K_DTYPE_x) for 
the key. The allowed data types are BU, W, WU, L, LU, and T. KDB 
key data type BU matches a one-byte string key. 

The key's size, in bytes. If the data type is T, this field contains the 
length of the key in bytes. Otherwise, the size field is ignored. 

The key's byte offset into the record. 

If the data type of an existing file's key does not match the key described in the KDB, an error is 
given. 

The keys must be sorted into ascending order. If the file is being created, RMS requires that the key 
numbers be consecutive. 

See the description of PAS$FINDK in Chapter 3 for more information on key types. 

2.1.4 Data Structures for the Predeclared Files INPUT and OUTPUT 

The file variables for the files INPUT and OUTPUT are defined by the Run-Time Library rather than by 
the compiled code to insure that there is only one INPUT and one OUTPUT per process. The 
attributes of these variables are shown in Table PAS-3. 

If no explicit file name is given with OPEN, the Run-Time Library routines translate the logical names 
PAS$INPUT for INPUT and PAS$OUTPUT for OUTPUT. If a translation exists, the file will be opened 
as PASSINPUT or PASSOUTPUT, respectively. If no translation exists, SYS$INPUT and 
SYS$OUTPUT will be used instead. 


Table PAS-3: Default Attributes of INPUT and OUTPUT 


Attribute 

INPUT 

OUTPUT 

Global variable name 

PAS$ FV_ IN PUT 

PAS$FV_OUTPUT 

Buffer length 

1 byte 

1 byte 

PFD$V_TEXT 

1 

1 

PFD$V_BINARY 

0 

0 

PFD$V_ VARYING 

0 

0 

PFD$V_ NOWRITE 

0 

0 

PFD$V_ NOREAD 

0 

0 

PFD$V_EXTERN 

1 

1 

PFD$V_STATIC 

1 

1 

PFD$I_LENGTH 

1 

1 

PFD$T_NAME 

INPUT 

__ 

OUTPUT 


KDB$B_DTYPE 

KDB$B_SIZE 
KDB$I_OFFSET 
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2.2 Opening Files 

Files in PASCAL do not need to be opened with the OPEN procedure. Instead, the first REWRITE or 
RESET of that file will open the file using the defaults shown in Table PAS-4. To change these 
defaults, the file must be opened using OPEN procedure parameters. 

Table PAS-4: Defaults for Opening Files 


Parameter 

Kind of File 

Default 

Filename 

External 

File variable name 

Default filename 

External 

'.DAT' 

History 

Opened by RESET 

OLD 


INPUT, implicit RESET 

READONLY 


Others 

NEW 

Record length 

Text files 

133 


Others 

File component size 

Access method 

All 

SEQUENTIAL 

Record type 

Text files 

VARIABLE 


FILE OF VARYING 

VARIABLE 


Others 

FIXED 

Carriage control 

Text files 

LIST 


FILE OF VARYING 

LIST 


Others 

NONE 

Organization 

All 

SEQUENTIAL 

Disposition 

External 

SAVE 


FILE_NAME present 

SAVE 


Others 

DELETE 

Sharing 

HISTORY: = READONLY 

READONLY 


Others 

NONE 


2.2.1 Opening INPUT and OUTPUT 

The PASCAL language specifies that if the standard file INPUT is used in a program, an implicit RESET 
of INPUT is performed before the program begins execution. Likewise, if the standard file OUTPUT is 
used, an implicit REWRITE of OUTPUT is performed. 

VAX—11 PASCAL implements this requirement by initializing the file variables to be invalid 
(PFV$V_VALID clear), causing PAS$LOOK_AHEAD to be called the first time the file is referenced or 
used in an I/O routine. Each PASCAL Run-Time Library I/O routine checks to see whether the PFV 
passed to it is either PAS$FV_INPUT or PAS$FV_OUTPUT. If so, and if the file has not been 
previously opened, the implicit RESET or REWRITE is performed at that time. 

If INPUT or OUTPUT is opened explicitly by OPEN (PAS$OPEN2), the RESET or REWRITE is per¬ 
formed after the file has been opened using the parameters passed to OPEN. 

The implicit RESET or REWRITE is performed the same as if an explicit RESET or REWRITE appeared at 
the beginning of the program, except that the implicit RESET of INPUT opens the file with HISTORY 
:= READONLY instead of the default HISTORY := OLD. 
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PAS$OPEN2 


2.2.2 The OPEN Procedure (PAS$OPEN2) 

PAS$OPEN2 supports the PASCAL procedure OPEN. The specified parameters are passed to 
PAS$OPEN2 as values of enumerated type, each representing a unique keyword or keyword value. 
Keywords that take variable arguments are followed by those arguments in the argument list. 

PAS$OPEN2 has only one required parameter, the PFV. The defaults for the other parameters are the 
same as for an implicit open. (See Table PAS—4.) The VAX-11 PASCAL Language Reference Manual 
explains the function of these parameters and gives rules for their use. 

An explicit OPEN leaves the file in Undefined mode. The program must issue a REWRITE, RESET, 
FIND, FINDK, RESETK, or LOCATE to put the file in the proper mode. If the first operation performed 
on the predeclared file INPUT or OUTPUT is an OPEN, the implicit RESET or REWRITE is performed 
after the file is opened using to the parameters specified. 

Format OPEN ( FILE-VARIABLE := file-variable) 

FILE-NAME := file-name 
HISTORY := history 
RECORD-LENGTH := record-length 
ACCESS-METHOD := access-method 
RECORD-TYPE := record-type 
CARRIAGE-CONTROL := carriage-control 
ORGANIZATION := organization 
DISPOSITION := disposition 
SHARING := file-sharing 
USER-ACTION := user-action 
ERROR := error-recovery 

generates CALL PAS$OPEN2 (file-var.mz.r [, error-parameter.rz.v, error.j.r] 

[ , optional-parameter ...] ) 


Arguments 

file-var 

The PFV of the file to be opened, 
error-parameter 

Value indicating that the ERROR parameter is present. If the ERROR parameter is not the first 
keyword in the list, it will be ignored. (The compiler passes error in the correct position.) 

error 

The address to which to branch in case of error, 
optional-parameter 

Optional parameters are given by enumerated-type integer values in the argument list. Each value 
defines a unique keyword or keyword value. For those keywords that take variable arguments, the 
arguments occur in succeeding argument list entries. 

Table PAS—5 lists the parameters, their values, and the additional arguments each parameter 
takes. The notes following the table give additional information about these parameters. 
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Table PAS-5: Optional OPEN Parameters 


Value 

Parameter Name 

Variable Arguments 

1 

PAS$K_FILE_NAME 

string-length.rw.v, string.rt.r 

2 

PAS$K_DEFAULT_FILE_NAME 

string-length.rw.v, string.rt.r 

3 

PAS$K_ HISTORY_OLD 


4 

PAS$K_HISTORY_ NEW 


5 

PASS K_HISTORY_ UN KNOWN 


6 

PAS$K_HISTORY_READONLY 


7 

PAS$K_RECORD_LENGTH 

length.rl.v 

8 

PAS$K_ACCESS_METHOD_SEQUENTIAL 


9 

PAS$K_ACCESS_METHOD—DIRECT 


10 

PAS$K_ACCESS_METHOD_KEYED 


11 

PAS$K_RECORD_TYPE_FIXED 


12 

PAS$K_RECORD_TYPE-VARIABLE 


13 

PAS$K_CARRIAGE_CONTROI_LIST 


14 

PAS$K-CARRIAGE-CONTROL_FORTRAN 


15 

PAS$K_CARRIAGE_CONTROI_NONE 


16 

PAS$K_ORGANIZATION_SEQUENTIAL 


17 

PAS$K_ORGANIZATION_RELATIVE 


18 

PAS$K_ORGANIZATION_INDEXED 


19 

PAS$K_ DISPOSITION—SAVE 


20 

PAS$K_ DISPOSITION—DELETE 


21 

PAS$K_ DISPOSITION—PRINT 


22 

PAS$K_ DISPOSITION—PRINT—DELETE 


23 

PAS$K_DISPOSITION—SUBMIT 


24 

PAS$K_DISPOSITION—SUBMIT—DELETE 


25 

PAS$K_ERROR 

unwind_address.j.r 

26 

PAS$K_USER—ACTION 

func.fbpv.r 

27 

PAS$K_SHARING_NONE 


28 

PAS$K_SHARING_READONLY 


29 

PAS$K_SHARING_READWRITE 



Notes 

• There is currently no VAX-11 PASCAL language syntax that supports the DEFAULT_FILE_NAME 
parameter. 

• If HISTORY := OLD is specified and the user cannot gain write access to the file, the file will be 
opened READONLY with no message. 

• RECORD-LENGTH is useful only for text files. If it is given for a nontext file and does not match the 
record length of the existing file, an error is issued; if the length matches, RECORD-LENGTH is 
ignored. 

• An error is issued if the access method conflicts with the organization and record type of the file. 

• If no RECORD—TYPE is specified when opening an existing file, the record type of the file is used. 
Existing files with RFM = VFC can be opened by specifying VARIABLE. Files with other unsup¬ 
ported record types (for example, STM) may be opened if the RECORD—TYPE parameter is omitted; 
these files are treated as VARIABLE. An error is given if RECORD—TYPE is specified and does not 
match the record type of the existing file. 
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• If the CARRIAGE-CONTROL is FORTRAN or NONE, terminal prompting is not performed for the 
file. 

• If the ORGANIZATION parameter is omitted when an existing file is being opened, the organiza¬ 
tion of the file is used. An error is given if an organization is specified and does not match that of 
the existing file. 

• Only a named file may be saved, printed, or submitted. A file is given a name if it is an external file 
or if the FILE-NAME parameter is specified when the file is opened. 

• If the parameter ERROR is present, it must be the first of the optional parameters in the argument 
list. Otherwise it is ignored. (The PASCAL compiler automatically passes error in the correct posi¬ 
tion.) The variable parameter specifies the address to which to unwind in case of an error. 

• The USER—ACTION parameter specifies that PAS$OPEN2 is to call a user-supplied function instead 
of VAX-11 RMS routines to open the file. The three arguments passed to the USER-ACTION 
function are the address of the RMS FAB, the address of the RMS RAB and the address of the PFV. 
The USER-ACTION function should return success or failure as a 32-bit condition code (that is, 
RMS STS). 

The USER—ACTION function is specified as a bound procedure value whose first longword con¬ 
tains the address of the entry mask and whose second longword contains the environment value to 
be loaded into R1 prior to the call. 

Prompting is not performed for terminal files opened with a USER-ACTION routine. 

Refer to the Generic Division of this manual and to the VAX—/ 1 PASCAL User's Guide for more 
information on how to open a file with USER—ACTION. 

• If HISTORY is READONLY, the default SHARING is READONLY; otherwise the default sharing is 
NONE. NONE allows no other streams to modify the file, READONLY allows other streams only to 
read from the file, and READWRITE allows other streams all permissible operations. 

passfab 


2.2.3 Return Address of File Access Block (PAS$FAB) 

This function returns a pointer to the RMS File Access Block (FAB) of the specified file. The program 
can then use the FAB to gain information about the file and to access RMS facilities not explicitly 
available from PASCAL. (Consult the VAX-11 RMS Reference Manual for more information about 
these facilities.) 

PAS$FAB is an external function and must be declared as such; no language statement generates a 
call to PAS$FAB. 

Format fab.wa.v = PASSFAB (file-var.rr.r) 

Arguments 

fab 

The address of the file's RMS File Access Block (FAB). If no FAB exists for this file, zero is 
returned. 

file-var 

The PFV for the file. The file must be open before the call to PAS$FAB. 
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PASSRAB 


2.2.4 Return Address of Record Access Block (PAS$RAB) 

This function returns the address of the RMS Record Access Block for the specified file. The program 
can then use the RAB to get information about the file and access RMS facilities not explicitly 
available from PASCAL. (Consult the VAX— 7 7 RMS Reference Manual for more information about 
these facilities.) 

PAS$RAB is an external function and must be declared as such; no language construct generates a 
call to PAS$RAB. 

Format rab.wa.v = PAS$RAB (file-var.rr.r) 

Arguments 

rab 

The address of the file's RMS Record Access Block (RAB). If no RAB exists for this file, zero is 
returned. 

file-var 

The PFV for the file. 

2.3 Closing Files 

All files are automatically closed when the image exits, but your program may elect to close any file, 
no matter how it was opened. 

Internal files are closed when the procedure that declared them exits. 


PAS$CLOSE2 


2.3.1 The CLOSE Procedure (PASSCLOSE2) 

PASSCLOSE2 has the same calling sequence as does PAS$OPEN2. See the description of 
PAS$OPEN2 for more details. 

Format CLOSE ( FILE-VARIABLE := file-variable) 

DISPOSITION := disposition 
USER-ACTION := user-action 
ERROR := error-recovery 

generates CALL PAS$CLOSE2 ( file-var.mr.r [error-parameter.rz.v, error.j.r] 

[ , optional-parameter ...] ) 

Arguments 

file-var 

The PFV for the file, 
error-parameter 

Value indicating the ERROR parameter is present. If the ERROR parameter is not the first keyword 
in the list, it will be ignored. 
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error 

The address to which to branch in case of error, 
optional-parameter 

PAS$CLOSE2 accepts parameters that indicate the disposition of a file, the action to be taken in 
case of error, and whether a USER-ACTION procedure is to be called. These parameters have the 
same values and variable arguments as PAS$OPEN2. The disposition specified with CLOSE over¬ 
rides any disposition specified with OPEN. 


PAS$CLOSE—LOCAI—R3 

2.3.2 Procedure Epilog Routine (PAS$CLOSE_LOCAI_R3) 

Each procedure that declares a file calls PAS$CLOSE_LOCAI_R3 to close those files when it exits. 

PAS$CLOSE_LOCAI_R3 is entered by a JSB instruction and preserves the contents of R0/R1. 

Format END; 

generates JSB PAS$CLOSE_LOCAI R3 

Arguments 

None. 
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Chapter 3 

General I/O Routines 


This chapter describes the Run-Time Library routines that perform I/O operations for VAX—11 
PASCAL V2. These routines: 

• Support PASCAL file processing procedures 

• Implement the PASCAL file-related routines EOF, LINELIMIT, STATUS, and UFB 

Routines that apply only to text files are described in Chapter 4. Routines that open and close files are 
described in Chapter 2. 


Note 

The data structures allocated and used by versions of VAX-11 PASCAL prior to 
Version 2 are different from and incompatible with those used by Version 2 and later. 

Do not attempt to pass VAX—11 PASCAL VI.x file variables to any procedure de¬ 
scribed in this division. 

3.1 I/O Operations 

The operations allowed on a particular file are determined by the file's organization and access 
method. The file's mode — Inspection, Generation, or Undefined — also determines whether some 
operations are valid. Refer to the VAX—1I PASCAL Language Reference Manual for more information 
about allowable operations and file modes. 

Most PASCAL I/O procedures allow the program to specify whether execution should continue if an 
error occurs during that operation. If execution is to continue, the VAX-11 PASCAL compiler passes 
to the PASCAL-specific Run-Time Library routine the address of the next instruction to be executed 
after an error. See Section 1.3 for more information about the ERROR parameter; see the VAX—II 
PASCAL Language Reference Manual and the VAX—11 PASCAL User's Guide for information about 
what errors each VAX—11 PASCAL predeclared procedure may return. 


PAS$DELETE 


3.1.1 Delete Current Record (PAS$DELETE) 

PAS$DELETE implements the VAX—11 PASCAL procedure DELETE. PAS$DELETE removes the current 
file component from the file. PAS$DELETE is valid only for relative or indexed files opened for direct 
or keyed access. The file must be in Inspection mode before PAS$DELETE is called and remains in 
that mode after the procedure's execution. 
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The component to be deleted must have been locked by a successful FIND, FINDK, GET, RESET, or 
RESETK before the call to PAS$DELETE. After deletion, the component is unlocked and the file buffer 
is undefined (UFB is TRUE). 

Format DELETE (file-variable [, ERROR := error-recovery|); 

generates CALL PAS$DELETE (file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file from which the component is to be deleted, 
error 

The address to which to unwind in case of error. 

PAS$FIND2 

3.1.2 Position to Component and GET (PAS$FIWD2) 

PAS$FIND2 implements the VAX-11 PASCAL procedure FIND. PAS$FIND2 positions a file directly 
to a specified component by component number. The file must be opened for direct access using the 
OPEN procedure before the call to PAS$FIND2, but it may be in any mode. 

After successful execution of PAS$FIND2, the file buffer assumes the value of the component and the 
file mode is set to Inspection. If the file's organization is relative, the component is also locked. If 
there is no file component at the selected position, the file buffer is undefined and the mode is set to 
Undefined (UFB is TRUE). After any call to PAS$FIND2, the value of EOF is undefined. 

Format FIND ( file-variable, component-number |[, ERROR := error-recovery J ); 

generates CALL PAS$FIND2 ( file-var.mr.r, position.rl.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file to be searched, 
position 

A positive integer that indicates the component at which the file is to be positioned, 
error 

The address to which to unwind in case of error. 

PAS$FINDK 

3.1.3 Position to Component by Key and GET (PAS$FINDK) 

PAS$FINDK supports the VAX—11 PASCAL predeclared procedure FINDK. PAS$FINDK searches the 
index of an indexed file opened for keyed access and locates a specific component. PAS$FINDK may 
be entered from any mode and leaves the file in Inspection mode. 

If the component exists in the file, the file buffer is filled with that component and UFB and EOF both 
become FALSE. The mode is set to Inspection and the component is locked. If no component matches 
the description, UFB becomes TRUE, EOF is undefined, and the mode is set to Undefined. 
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Format FINDK (file-variable, key-number, key-value |, match-type) 

[, ERROR := error-recovery) ); 

generates CALL PAS$FINDK (file-var.mr.r, key-number.rl.v, key-value.rx.ds, match-type.rbu.v 
[, error.j.r]) 

Arguments 

file-var 

The PFV for the file to be searched, 
key-number 

A positive integer value (0 to 254) that indicates which index is to be searched, 
key-value 

The key value to be searched for. The data type must be one of BU, WU, L, LU, T, and Z. 

Key-value 's data type must be compatible with the data type of the file's key. Data type Z is 
considered equivalent to T. Only key-value data types T and Z match a file key of type packed 
decimal. 

Table PAS-6 shows the allowable combinations of key value types and file key types. (ST1 refers 
to a one-byte STG key.) 

Table PAS-6: Allowable Key Types 


Data Type 

RMS Key Type 


STG 

ST1 

BN2 

BN4 

IN2 

IN4 

PAC 

BU 

no 

(1) 

yes 

yes 

no 

no 

no 

WU 

no 

(1) 

yes 

yes 

no 

no 

no 

LU 

no 

(1) 

(2) 

yes 

no 

no 

no 

L 

no 

(1) 

(2) 

yes 

(2) 

yes 

no 

T, Z 

yes 

(3) 

no 

no 

no 

no 

(4) 


Notes 

1. Only if key is not declared as string. Value must be in range of key type (0-255). 

2. Value must be in range of key type. 

3. Only if key is not declared as BU. 

4. Cannot be declared in key descriptor. Otherwise, treated as string, 
match-type 

An identifier that indicates the relationship between key-value and the key value of a component. 
Possible values are: 

0 The component key is equal to key-value. 

1 The component key is greater than or equal to key-value. 

2 The component key is greater than key-value. 

error 

The address to which to unwind in case of error. 
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PAS$GET 


3.1.4 Generic File GET (PAS$GET) 

PAS$GET implements the VAX-11 PASCAL predeclared procedure GET. PASSGET reads the next 
component of the file into the file buffer and advances the file position. 

PASSGET must be entered from Inspection mode. A successful GET operation leaves the file in 
Inspection mode, advances the file position to the next component, and transfers the component's 
contents to the file buffer. If the file organization is relative or indexed, the component is automati¬ 
cally locked. EOF and UFB are both set to FALSE. 

PASSGET skips nonexistent components in a relative file to reach the next valid component; other¬ 
wise, EOF and UFB both become TRUE when no component is found. When the end of the file is 
reached, EOF and UFB automatically become TRUE. If PASSGET is called while EOF is true, a run¬ 
time error occurs and program execution is aborted. 

Format GET ( file-variable [, ERROR := error-recovery) ); 

generates CALL PASSGET (file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind in case of error. 

PASSGET—UNLOCK 

3.1.5 GET for READ from Nontext Files (PAS$GET_UNLOCK) 

When a READ procedure is called for a nontext file, PAS$GET_UNLOCK is called instead of 
PASSGET to implement the special semantics of such a READ. A READ operation from a nontext file 
performs these operations for each variable in the list: 

1. Move from file buffer 

2. GET 

3. UNLOCK 

PAS$GET_UNLOCK is identical to PASSGET except that the record is not locked. 

Format READ (file-variable, variable [, ERROR := error-recovery)); 

generates CALL PAS$GET_UNLOCK (file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind after an error. 
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PAS$LOCATE 


3.1.6 Position to Component and Enter Generation Mode (PAS$LOCATE) 

PAS$LOCATE implements the VAX—11 PASCAL predeclared procedure LOCATE. PAS$LOCATE posi¬ 
tions a file at a particular component so a subsequent PUT procedure can modify that component. 

The file may be in any mode before PASSLOCATE is called, but it must be opened for direct access. 
After PASSLOCATE executes successfully, the mode is set to Generation, UFB is TRUE, and EOF is 
undefined. 

Format LOCATE (file-variable, component-number [, ERROR := error-recovery | ); 

generates CALL PASSLOCATE (file-var.mr.r, position.rl.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
position 

A positive integer indicating the relative component number of the component to be found, 
error 

The address to which to unwind after an error. 


PAS$PUT 


3.1.7 Generic File PUT (PAS$PUT) 

PASSPUT implements the PASCAL predeclared procedure PUT. PAS$PUT adds a new component to 
a file. The function and result of the PUT procedure varies according to file organization and access 
mode: 

• For sequential access, PAS$PUT must be entered from Generation mode, unless the file has 
indexed organization. In that case, PASSPUT may be entered from any mode. If you try to call 
PASSPUT while EOF is FALSE, the procedure fails and a run-time error occurs. If the file has 
indexed organization, the value of the new file component's primary key must be greater than the 
primary key values of all the other file components. This guarantees that the new component is 
appended to the end of the sequential access file. 

PASSPUT sets EOF to TRUE. After execution, the value of the file buffer becomes undefined (UFB is 
TRUE), EOF remains TRUE, and the file remains in Generation mode. 

• For direct access, PASSPUT must be entered from Generation mode. After execution of PASSPUT, 
the value of the file buffer becomes undefined (UFB is TRUE) and the file remains in Generation 
mode. 

• For keyed access, PASSPUT may be called when the file is in any mode. In this case, the file buffer 
variable is written to the file at the position indicated by the keys in the record. EOF is undefined 
after PASSPUT. 

Format PUT ( file-variable [, ERROR := error-recovery J ); 

generates CALL PASSPUT ( file-var.mr.r [, error.j.r]) 
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Arguments 


file-var 

The PFV for the file, 
error 

The address to which to unwind after an error. 

PAS$RESET2 

3.1.8 Position to Start of File and Enter Inspection Mode (PAS$RESET2) 

PAS$RESET2 implements the PASCAL predeclared procedure PAS$RESET2. PAS$RESET2 prepares a 
file for reading. The file may be in any mode before the call to PAS$RESET2; successful execution sets 
the mode to Inspection. If the file is an existing external file and is not already open, PAS$RESET2 
opens it using the defaults listed in Chapter 2. PAS$RESET2 cannot create a file. 

PAS$RESET2 positions the file at the first component and performs a GET. If the file organization is 
relative or indexed, the component is also locked. If the file is empty, EOF and UFB are TRUE; 
otherwise they are FALSE. 

A call to PAS$RESET2 on a file opened for direct access positions the file at the first existing file 
component. A call to PAS$RESET2 on a keyed access file positions the file at the first component 
relative to the primary key. 

Format RESET ( file-variable (, ERROR := error-recovery j ); 

generates CALL PAS$RESET2 ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind after an error. 

PAS$RESETK 


3.1.9 Position to Beginning of Index (PAS$RESETK) 

PAS$RESETK implements the VAX-1 1 PASCAL predeclared procedure RESETK. PAS$RESETK pre¬ 
pares an indexed file for reading along a specified key index. The file must be opened for keyed 
access, but may be in any mode before the call to PAS$RESETK. 

PAS$RESETK searches for the component with the lowest value in the specified key number. This 
component becomes the current component in the file and is locked. Its value is copied into the file 
buffer; EOF and UFB are set to FALSE and the mode is set to Inspection. 

If the component does not exist, UFB and EOF become TRUE. 

A call to PAS$RESETK for key number 0 on an open file is equivalent to a call to PASSRESET2. 
Format RESETK ( file-variable, key-number [, ERROR := error-recovery [ ); 

generates CALL PAS$RESETK ( file-var.mr.r, key-number.rl.r [, error.j.r]) 
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Arguments 


file-var 

The PFV for the file, 
key-number 

A positive integer indicating the key position, 
error 

The address to which to unwind after an error. 


PAS$REWRITE2 


3.1.10 Scratch File and Enter Generation Mode (PAS$REWRITE2) 

PASSREWRITE2 implements the PASCAL predeclared procedure REWRITE. PAS$REWRITE2 prepares 
a file for output. The file can be in any mode; if the file is not yet open or does not exist, 
PAS$REWRITE2 creates and opens it using the defaults described in Chapter 2. The file is set to 
Generation mode. 

PAS$REWRITE2 removes all data from the file and sets EOF and UFB to TRUE. Subsequent calls to 
PAS$REWRITE2 remove the data again; they do not create new versions of the file. 

Format REWRITE (file-variable [, ERROR := error-recovery J ); 

generates CALL PASSREWRITE2 ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind after an error. 


PAS$TRUNCATE 


3.1.11 Truncate File at Current Position (PAS$TRUNCATE) 

PAS$TRUNCATE implements the VAX-11 PASCAL predeclared procedure TRUNCATE. 
PAS$TRUNCATE deletes the current file component and all components following it from a sequen¬ 
tial organization file. 

The file must be in Inspection mode before PAS$TRUNCATE is called; PAS$TRUNCATE sets the 
mode to Generation so that the file is ready for output. If the file is already at end-of-file, no 
component is deleted. 

The current component is the one at which the file buffer is positioned. After the components are 
deleted, the file remains positioned at the new end-of-file, but the file buffer itself is undefined. Thus, 
EOF and UFB are both set to TRUE. 

Format TRUNCATE (file-variable |, ERROR := error-recovery J ); 

generates CALL PAS$TRUNCATE (file-var.mr.r [, error.j.r]) 
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Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind after an error. 

PAS$UNLOCK 


3.1.12 Unlock Current Component in File (PAS$UNLOCK) 

PAS$UNLOCK implements the VAX—11 PASCAL predeclared procedure UNLOCK. PAS$UNLOCK 
releases the current file component (if any) for access by other programs. PAS$UNLOCK has no effect 
on sequential organization files. 

Format UNLOCK ( file-variable [, ERROR := error-recovery J ); 

generates CALL PAS$UNLOCK ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind after an error. 

PAS$UPDATE 


3.1.13 Update the Current Component with the File Buffer (PAS$UPDATE) 

PAS$UPDATE implements the VAX—11 PASCAL predeclared procedure UPDATE. PAS$UPDATE 
writes the contents of the file buffer into the current component. 

The file must be in Inspection mode before the call to PASSUPDATE; it remains in that mode 
afterwards. This procedure is valid only for relative or indexed organization files opened for direct or 
keyed access. The current component must first be locked by a successful FIND, FINDK, GET, 
RESET, or RESETK procedure; after PASSUPDATE executes, the component is unlocked and UFB is 
TRUE. 

Format UPDATE (file-variable [, ERROR := error-recovery J); 

generates CALL PASSUPDATE ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind after an error. 
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3.2 File-Related Routines 


PASCAL provides a number of routines that give your program more control over the I/O operations 
being performed. These functions are: 

• EOF, to indicate whether the file pointer is positioned after the last component in a file 

• LINELIMIT, to determine how many components may be written to a file 

• STATUS, to return an integer code indicating whether the last operation on a file was successful or 
what error occurred 

• UFB, to determine whether the file buffer is undefined after the last operation 

See the VAX—11 PASCAL Language Reference Manual for more information about how to use these 
functions. 


PAS$EOF2 


3.2.1 Inquire if End-of-File (PAS$EOF2) 

PAS$EOF2 supports the VAX—11 PASCAL function EOF. PAS$EOF2 indicates whether the file pointer 
is positioned after the last component in the file. It returns FALSE up to and including the time when 
the last component in the input file is read into the file buffer. The program must attempt to read 
another file component after the last to determine whether the file is positioned at the end. 

For direct access files, PAS$EOF2 returns TRUE when the file is in Inspection mode and the last GET 
or RESET operation positioned the file beyond the last existing component. If the file is in Generation 
or Undefined mode, the result of PAS$EOF2 is undefined. 

Similarly, PAS$EOF2 returns TRUE when an indexed file opened for keyed access is in Inspection 
mode and the last GET, RESET, or RESETK positioned the file beyond the last component of the 
current key. Successful attempts at GET, RESET, and RESETK cause PAS$EOF2 to return FALSE. 
PAS$EOF2 is undefined if the file is not in Inspection mode. 

If you attempt to read a file while EOF is TRUE, an error results. 

The VAX-11 PASCAL compiler implements the EOF function by testing the PFV$V_DFB bit in the 
PFV. The language allows a default file variable (INPUT), but PAS$EOF2 does not. 

Format EOF (file-variable) 

generates result.wv.v = PAS$EOF2 (file-var.mr.r) 

Arguments 

file-var 

The PFV for the file to be tested. The compiler passes the predeclared file INPUT if no name was 
declared. 

result 

A Boolean value indicating whether the file pointer is positioned after the last component in the 
file. 
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PASSLINELIMIT2 


3.2.2 Set New Line Limit (PAS$LINELIMIT2) 

The Run-Time Library procedure PAS$LINELIMIT2 implements the VAX—11 PASCAL procedure 
LINELIMIT. PAS$LINELIMIT2 sets a value that causes a program to terminate after a certain number of 
lines has been written to a text file. The default line limit is represented by the system logical name 
PAS$LINELIMIT. When the file is opened, the compiler translates this logical name as a string of 
decimal digits and uses this value as the line limit. If there is no translation, or if the translation does 
not result in a decimal number, the line limit is infinite. 

The line limit for nontext files is defined as the number of PUT operations allowed. However, the 
default line limit on nontext files is infinite, and is not affected by the definition of the logical name 
PAS$LINELIMIT. 

Format LINELIMIT (file-variable, int-exp); 

generates CALL PAS$LINELIMIT2 (file-var.mr.r, line-limit.rl.r [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
line-limit 

A positive integer indicating how many lines can be written to the file before causing execution to 
terminate. 

error 

The address to which to branch in case of error. 

PAS$STATUS 


3.2.3 Get Status of Last File Operation (PAS$STATUS) 

PAS$STATUS supports the VAX-11 PASCAL predeclared function STATUS. PAS$STATUS provides 
more information about whether the last file operation was successful and, if not, in what way it 
failed. 

PAS$STATUS never signals an error using the VAX-11 Condition Handling Facility; it always reports 
these errors by returning an error status. 

On text files, PAS$STATUS causes delayed device access to fill the buffer with the next file compo¬ 
nent. Thus, PAS$EOF2, PAS$EOLN2, PAS$UFB, or PAS$STATUS never return an error code follow¬ 
ing a successful PAS$STATUS function. 

Format STATUS ( file-variable) 

generates status.wl.v = PAS$STATUS ( file-var.mr.r) 

Arguments 

file-var 

The PFV for the file to be tested. 
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status 

An integer that denotes the status of the last operation performed on the file. Status is -1 for EOF, 
0 for no error, and a positive integer for other errors. See the VAX-11 PASCAL User's Guide for 
the meaning of specific condition codes. 


PAS$UFB 


3.2.4 Inquire if Undefined File Buffer (PAS$UFB) 

PASSUFB supports the VAX-11 PASCAL predeclared function UFB. PAS$UFB returns a Boolean 
value indicating whether the last file operation left the contents of the file buffer unknown. 

PAS$UFB returns FALSE after a successful FIND, FINDK, GET, RESET, or RESETK operation has filled 
the file buffer. PASSUFB returns TRUE after these operations have failed, or after DELETE, LOCATE, 
PUT, REWRITE, TRUNCATE, and UPDATE procedures. Assigning a new value to the file buffer with 
an assignment statement does not change the value returned by PASSUFB. 

The VAX—11 PASCAL compiler implements the UFB function by an in-line test of the PFV$V_DFB bit 
in the PFV. (PFV$V_DFB is explained in Section 2.1.1.) 

Format UFB (file-variable) 

generates result.wv.v = PASSUFB (file-var.mr.r) 

Arguments 

file-var 

The PFV for the file to be tested, 
result 

A Boolean value indicating whether the last file operation gave the file buffer an undefined status. 
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Chapter 4 

Text File I/O Routines 


VAX-11 PASCAL provides predeclared routines to read data from and write data to files of type TEXT, 
called text files. This chapter describes the Run-Time Library routines that implement these pre¬ 
declared routines. 

The chapter is divided into three parts: 

• Section 4.1 explains how VAX-11 PASCAL handles I/O to text files and describes the Run-Time 
Library procedures that control the file being processed or give more information about it. 

• Section 4.2 describes the Run-Time Library procedures that implement PASCAL input routines for 
text files. 

• Section 4.3 describes the Run-Time Library procedures that implement PASCAL output routines for 
text files. 

4.1 Text File Manipulation Routines 

VAX-11 PASCAL treats text files differently than it treats other kinds of files. For most files, one 
PASCAL file component corresponds exactly to one RMS record. However, files of type TEXT have a 
component type of a single character; text file lines consist of zero or more characters followed by an 
end-of-line character. Each line of a text file is an RMS record. The end-of-line character does not 
actually appear in the file; its position is determined by the length of the record. 

Thus, PASCAL must process several components to make up one RMS record. 

Since RMS deals only with complete records, the PASCAL run-time system must use several tech¬ 
niques to manage the incomplete records. Among these are: 

1. Internal text file buffering. The VAX—11 PASCAL run-time system holds partially processed 
lines in an internal line buffer invisible to the user program. During a READ operation, RMS 
transfers the record to be read from the device to this internal buffer. The Run-Time Library 
routines then transfer one character at a time from this buffer to the program's file buffer. 

During output, the PASCAL program writes one character at a time to this internal buffer. 
When a WRITELN causes the record to be terminated, RMS transfers the completed record to 
the physical device. 
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2. Delayed device access to terminals (also called lazy lookahead). In delayed device access, 
input is not retrieved from the terminal and inserted in the file buffer until the program is ready 
to process it. The file buffer is filled when the program makes the next reference to the file. A 
reference to the file consists of any use of the file buffer variable (including its implicit use in 
the GET, READ, and READLN procedures) or any explicit test for the status of the file. 

The VAX—11 PASCAL User's Guide and VAX—11 PASCAL Language Reference Manual explain 
delayed device access in more detail. See also the description of PAS$LOOK_AHEAD in the 
next section. 

3. Prompting to terminals. When a user program wants to read from the terminal, the 
PAS$READ_x routine issues an RMS $GET to complete any delayed device access in progress. 
Just before issuing this request, the PAS$READ_x routine searches for all open text files in 
Generation mode that have prompting enabled. (The VAX—11 PASCAL Language Reference 
Manual explains when prompting is enabled for a file.) Any partial output lines in the line 
buffers of such files are written to their respective terminals, leaving the cursor at the end of 
each partial line. 

VAX-11 PASCAL provides routines to control the files being processed. These routines are described 
in the following sections. 


PAS$EOLN2 

4.1.1 Inquire if End-of-Line (PAS$EOLN2) 

PAS$EOLN2 implements the VAX-11 PASCAL function EOLN. PAS$EOLN2 is not called directly 
from compiled code, but rather can be passed as a procedure by user programs. 

Format result.wv.v = PASSEOLN2 (file-var.mr.r) 

Arguments 

file-var 

The PFV for this file, 
result 

The Boolean value TRUE if the file is at end-of-line, FALSE otherwise. 


PAS$LOOK-AHEAD 


4.1.2 Attempt to Make Buffer Valid (PAS$LOOK_AHEAD) 

When the compiled code wants to read from the file buffer or test the status bits in the file variable, it 
firsts tests PFV$V_VALID. If this bit is set, the code may look at the file buffer and status bits directly. 
If PFV$V_VALID is clear, the code calls PAS$LOOK_AHEAD to resolve any delayed device access 
that may be in progress. 
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Other Run-Time Library PASCAL-specific routines call PAS$LOOK_AHEAD implicitly to complete 
delayed device access. 

Format CALL PAS$LOOK_AHEAD ( file-var.mr.r ) 

Arguments 

file-var 

The PFV for this file. 


PAS$PAGE2 


4.1,3 Write a Page Eject (PAS$PAGE2) 

PAS$PAGE2 causes a page eject record to be written to the specified text file. If the file has the 
FORTRAN carriage control attribute, the page eject record consists of the single character "1". For all 
other carriage control values, the page eject record is a form-feed character. 

Any data in the record buffer is written to the file before the page eject character. The next line 
written to the file begins on the second line of a new page (the first line is always empty). 

Format PAGE (file-variable [, ERROR := error-recovery I ) 

generates CALL PASSPAGE2 ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
error 

The address to which to branch in case of error. 

4.2 Text Input Routines 

The PAS$READ_x routines implement the VAX-11 PASCAL predeclared procedures READ and 
READLN. 

A READ or READLN procedure generates one call to the Run-Time Library for each item in the 
variable list. READLN then calls PAS$READLN2 to skip over any remaining data in the file buffer and 
position the file at the beginning of the next line. The PAS$READ_x routines receive the PFV from 
which the value is to be read; the VAX-11 PASCAL compiler supplies the PFV for the predeclared file 
INPUT if the call to READ or READLN does not name a file variable. (See Chapter 2.) 

If the call to READ or READLN specifies ERROR := CONTINUE, and an error occurs, execution 
continues after the last call in this series. 

Some of the more common error messages READ procedures can return are: 

FILNOTOPE 

File not open. 

FILNOTTEX 

File is not a text file. 
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FILNOTINS 

File not in Inspection mode. 

GETAFTEOF 

GET attempted after end-of-file. 

Each routine can return other errors; only the most common are listed separately in the routine 
descriptions. Refer to the VAX-11 PASCAL User's Guide for a complete list of PASCAL errors, an 
explanation of their format, and the errors that STATUS can detect. 

PAS$READ-BOOLEAN 

4.2.1 Read a Boolean Value (PAS$READ_BOOLEAN) 

PAS$READ_BOOLEAN reads a Boolean value from the specified text file and returns that value as the 
function result. 

Format READ ([file-variable, | { boolean-variable } ,... [.ERROR := error-recovery | ) 

generates result.wv.v = PAS$READ_BOOLEAN (file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
error 

The address to which to branch in case of error, 
result 

The Boolean value. 

Messages 

INVSYNENU 

Invalid syntax for enumerated value. 

NOTVALTYP 

“String" is not a value of type "type". 

PAS$READ-CHAR 

4.2.2 Read a Single Character (PAS$READ-CHAR) 

PAS$READ_CHAR reads a single character from the specified text file and returns that character as 
the function value. 

Format READ ( [file-variable, ] { char-variable } [,ERROR := error-recovery | ) 

generates result.wc.v = PAS$READ_CHAR ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for this file. 
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error 

The address to which to unwind in case of an error, 
result 

The character read from the file. 


PAS$READ_ENUMERATED 


4.2.3 Read an Enumerated Type Value (PAS$READ_ENUMERATED) 

PAS$READ_ENUMERATED reads an enumerated value from the specified text file and returns that 
value as the function result. 

Format READ ([file-variable, J { enumerated-variable } [,ERROR := error-recovery j ) 

generates result.wlu.v = PAS$READ_ENUMERATED ( file-var.mr.r, enumerated-dsc.rr.r 

l error.j.r]) 

Arguments 

file-var 

The PFV for this file. 


enumerated-dsc 

Pointer to the PETD (PASCAL Enumerated Type Descriptor) for this enumerated type. A value of a 
PASCAL enumerated type is represented internally as an integer that represents the value's ordinal 
position, with the leftmost value of the type equal to zero. The VAX-11 PASCAL compiler 
manipulates enumerated values as longword integers, but the PASCAL Run-Time Library I/O 
routines must know the names of the values. The PETD is the data structure that communicates 
these names. For possible error reporting purposes, the name of the type is also included. The 
layout of the descriptor is as follows: 


offset of ASCIC type name 
count of possible values (n) 
offset of ASCIC value name 0 
offset of ASCIC value name 1 


PETD 


offset of ASCIC value name n-1 

The offset of the type name is zero if the enumerated type is unnamed. 

The offsets of the names are relative to the address of the descriptor (PETD). Each name is a 
counted string with a one-byte count. 

PAS$READ_ENUMERATED assumes that the strings are in uppercase characters, 
error 

The address to which to branch in case of error. 
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Messages 


AMBVALENU 

"String" is an ambiguous value for enumerated type "type". 

INVSYNENU 

Invalid syntax for enumerated value. 

NOTVALTYP 

"String" is not a value of type "type". 

PAS$READ-INTEGER 

4.2.4 Read a Decimal Integer (PAS$READ_INTEGER) 

PAS$READ—INTEGER reads an integer from the specified text file and returns it as the function value. 
Format READ ( [file-variable, j { integer-variable } (, ERROR := error-recovery | ) 

generates result.wl.v = PAS$READ_INTEGER ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
error 

The address to which to unwind in case of an error. 

Messages 

INVSYNINT 

Invalid syntax for integer value. 

NOTVALTYP 

"String" is not a value of type "type". 

PAS$READ-REAI_x 

4.2.5 Read a Floating-Point Value (PAS$READ_REAI_x) 

PAS$READ_REAI_x reads a floating-point value from the specified text file and returns that value as 

the function result. 

Format READ ( |file-variable|, {real-variable} ,... [.ERROR := error-recovery (I) 

generates result.wd.v = PAS$READ_REAI D ( file-var.mr.r [, error.j.r]) 

result.wf.v = PAS$READ_REAI_F ( file-var.mr.r [, error.j.r]) 

result.wg.v = PAS$READ_REAI_G ( file-var.mr.r [, error.j.r]) 

CALL PAS$READ_REAI_H ( result.wh.r, file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for this file. 
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error 

The address to which to branch in case of error, 
result 

The value of the real number just read. Because an H_floating value is too large to fit in RO = R1, 

PAS$READ_REAI_H returns the value to the first argument passed by reference, with all other 

arguments shifted to the right by one. 

Messages 

INVSYNREA 

Invalid syntax for real value. 

NOTVALTYP 

"String" is not a value of type "type". 


PAS$READ-STRING 


4.2.6 Read a Fixed-Length String (PAS$READ_STRING) 

PAS$READ_STRING reads a fixed-length string from the specified text file and returns that string as 
the function result. 

Format READ ( [file-variable, |i {string-variable} ,... [,ERROR := error-recovery ! ) 

generates CALL PAS$READ_STRING ( result.wt.r, file-var.mr.r, string-length.rwu.v [, error.j.r]) 
Arguments 

file-var 

The PFV for this file, 
string-length 

The length of the string to be read, 
error 

The address to which to branch in case of error, 
result 

The string read, returned as a function value. In accordance with the VAX Procedure Calling 
Standard, the string's address is passed as the first procedure parameter, and all other parameters 
are shifted to the right by one position. 

If string-length is less than the number of characters remaining in the current line, only string- 
length characters will be read. If there are not enough characters left to fill result , it will be 
padded with blanks. 


PAS$READ-STRING1 

4.2.7 Read a Fixed-Length String Using VI Semantics (PAS$READ_STRING1) 

PAS$READ_STRING1 reads a fixed-length string from a text file using the semantics of VAX—11 
PASCAL VI. 
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The compiled code calls PAS$READ_STRING1 if the module has been compiled with the 
OLD_VERSION qualifier to comply with the semantics of VAX-11 PASCAL VI. The only difference 
between PAS$READ_STRING1 and PASS READ-STRING is that PAS$READ_STRING1 performs a 
GET before reading characters if the file is currently at end-of-line, while PAS$READ_STRING does 
not. 

Format READ ( [file-variable, j {string-variable} [,ERROR := error-recovery ]) 

generates CALL PAS$READ_STRING1 (result.wt.r, file-var.mr.r, string-length.rwu.v [, error.ja.r]) 
Arguments 

result 

The string read, returned as a function value. In accordance with the VAX Procedure Calling 
Standard, the string's address is passed as the first procedure parameter, and all other parameters 
are shifted to the right by one position. 

If the string length is less than the number of characters remaining in the current line, only string- 
length characters will be read; otherwise the string will be padded with blanks. 

file-var 

The PFV for this file, 
string-length 

The length of the string to be read, 
error 

The address to which to unwind in case of error. 


PAS$READ-UNSIGNED 

4.2.8 Read an Unsigned Decimal Integer (PAS$READ_UNSIGNED) 

PAS$READ_UNSIGNED reads an unsigned integer from the specified text file and returns that value 
as the function result. 

Format READ ( [file-variable, ] { unsigned-integer-var} ,... [,ERROR := error-recovery | ) 

generates result.wlu.v = PAS$READ_UNSIGNED ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
error 

The address to which to branch in case of error, 
result 

The value of the unsigned integer read. 


PAS 42 


Text File I/O Routines 


September 1982 




Messages 


INVSYNUNS 

Invalid syntax for unsigned value. 
NOTVALTYP 

"String" is not a value of type "type". 


PAS$READ-VARYING 


4.2.9 Read a Varying-Length String (PAS$READ_VARYING) 

PAS$READ_VARYING reads a varying-length string from the specified text file. It reads up to 
max-length characters, or until end-of-line, whichever comes first. 

Format READ ( [file-variable, 1 {string-variable} ,... [,ERROR := error-recovery | ) 

generates CALL PAS$READ_VARYING ( result.wvt.r, file-var.mr.r, max-length.rwu.v [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
max-length 

The maximum length of the string, 
error 

The address to which to branch in case of error, 
result 

The varying string read, returned as a function value. In accordance with the VAX Procedure 
Calling Standard, the address of the string is passed to this procedure as the first parameter, and 
all other parameters are shifted to the right by one position. 


PAS$READLN2 


4.2.10 Position to Start of Next Line (PAS$READLN2) 

PAS$READLN2 implements the PASCAL procedure READLN. It flushes the remainder of the current 
record and positions the file at the beginning of the next record. 

The file must be in Inspection mode before READLN is called and remains in that mode afterward. 

A READLN with a variable list generates a call to the appropriate PAS$READ_x routine for each 
variable in the list, followed by a call to PAS$READLN2, which skips over any remaining data in the 
line buffer and positions the file at the beginning of the next line. 

Format READLN ( [file-variable, J {variable} ,... [, ERROR := error-recovery J ) 

generates PAS$READLN2 ( file-var.mr.r [, error.j.r]) 
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Arguments 

file-var 

The PFV for this file, 
error 

The address to which to branch in case of error. 

4.3 Text Output Routines 

The PAS$WRITE_x routines set EOF to TRUE and leave the file buffer undefined. The file must be in 
Generation mode before the call to a PAS$WRITE_x routine and remains in that mode afterward. 

If a PAS$WRITE_x routine refers to the predeclared file OUTPUT and the file has not been previously 
opened, an implicit REWRITE is performed. 

The PAS$WRITE_x routines commonly return the following error messages: 

ERRDURWRI 

Error during WRITELN. 

FILNOTGEN 

File is not in Generation mode. 

FILNOTTEX 

File is not a text file. 

LINTOOLON 
Line too long. 

LINVALEXC 

LINELIMIT value exceeded. 

NEGWIDDIG 

Negative field Width or Digits specification is not allowed. 

Each routine may return other errors; only the most common are listed separately in the routine 
descriptions. Refer to the VAX-11 PASCAL User's Guide for a complete list of PASCAL errors, an 
explanation of their format, and the errors that STATUS can detect. 

PAS$WRITE-BIN 

4.3.1 Write a Binary Value (PAS$WRITE_BIN) 

PAS$WRITE_BIN writes a value's binary representation to the specified text file. 

Format WRITE ( [file-variable ,J { BIN (expression [, length [, digits | f) },... |, ERROR : = 

error-recovery | ) 

generates CALL PAS$WRITE_BIN (file-var.mr.r, nbits.rz.r, value.rz.r, total-width.rl.v [ [, error.j.r] 
[, min-digits.rl.v ] ] ) 
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Arguments 


file-var 

The PFV for this file, 
nbits 

The size of value in bits, 
value 

The address of the value to write. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error, 
min-digits 

The minimum number of digits to appear in the result. The default is the number of digits required 
to represent every bit of the value. 


PAS$WRITE-BOOLEAN 


4.3.2 Write a Boolean Value (PAS$WRITE_BOOLEAN) 

PAS$WRITE_BOOLEAN writes a Boolean value to the specified text file. 

Format WRITE ( [file-variable ,J { boolean-var[:field-widthj } ,... ,ERROR := error-recovery J ) 

generates CALL PAS$WRITE_BOOLEAN ( file-var.mr.r, boolean.rv.v, total-width.rl.v [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
boolean 

The Boolean value to be written to the file. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error. 


PASSWRITE—CHAR 


4.3.3 Write a Single Character (PAS$WRITE_CHAR) 

PAS$WRITE_CHAR writes a single character to the specified text file. 

Format WRITE ( Ijfile-variable ,| { char-var} '.ERROR := error-recovery j ) 

generates CALL PAS$WRITE_CHAR ( file-var.mr.r, character.rc.v. total-width.rl.v [, error.j.r]) 
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Arguments 


file-var 

The PFV for this file, 
character 

The single character to be written to the file. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error. 

PAS$WRITE-ENUMERATED 


4.3.4 Write an Enumerated-Type Value (PAS$WRIITE_ENUMERATED) 

PAS$WRITE_ENUMERATED writes a value of an enumerated type to the specified text file. 

Format WRITE ( ffile-variable ,) { enumerated-var} ,... I,ERROR := error-recovery | ) 

generates CALL PAS$WRITE_ENUMERATED ( file-var.mr.r, enumerated-dsc.rr.r, value.rlu.v, 

total-width.rl.v [, error.j.r]) 

Arguments 

file-var 

The PFV for this file. 


enumerated-dsc 

Pointer to the PETD (Pascal Enumerated Type Descriptor) for this enumerated type. A value of a 
PASCAL enumerated type is represented internally as an integer that represents the value's ordinal 
position, with the leftmost value of the type equal to zero. The VAX-11 PASCAL compiler 
manipulates enumerated values as longword integers, but the PASCAL Run-Time Library I/O 
routines must know the names of the values. The PETD is the data structure that communicates 
these names. For possible error reporting purposes, the name of the type is also included. The 
layout of the descriptor is as follows: 


offset of ASCIC type name 
count of possible values (n) 
offset of ASCIC value name 0 


offset of ASCIC value name 1 


PETD 


offset of ASCIC value name n-1 
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The offset of the type name is zero if the enumerated type is unnamed. 

The offsets are relative to the address of the descriptor (PETD). Each name is a counted string with 
a one-byte count. 

PAS$WRITE_ENUMERATED assumes the strings are in uppercase, 
value 

The enumerated-type value to be written to the file. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error. 

Messages 

WRIINVENU 

WRITE of invalid enumerated value. 


PAS$WRITE-HEX 


4.3.5 Write a Hexadecimal Value (PAS$WRITE-HEX) 

PAS$WRITE_HEX writes a value's hexadecimal representation to the specified text file. 

Format WRITE ( [file-variable ,] { HEX (expression [, length [, digits J J) } [,ERROR : = 

error-recovery J ) 

generates CALL PAS$WRITE_HEX ( file-var.mr.r, nbits.rl.v, value.rz.r, total-width.rl.v [, [error.j.r] 
[, min-digits.rl.v] ] ) 

Arguments 

file-var 

The PFV for this file, 
nbits 

The size of value in bits, 
value 

The address of the value to be written to the file. 

total-width 

The total field width. 

error 

Address to which to unwind in case of error, 
min-digits 

The minimum number of digits to appear in the result. The default is the number of digits needed 
to represent every bit of the value. 


September 1 982 


Text File I/O Routines PAS 47 



PAS$WRITE-INTEGER 


4.3.6 Write a Signed Decimal Integer (PAS$WRITE_INTEGER) 

This procedure writes a signed integer to the specified text file. 

Format WRITE ( ffile-variable ,J { integer-var [:field-width[ } [,ERROR := error-recovery J ) 

generates CALL PAS$WRITE_INTEGER ( file-var.mr.r, value.rl.v, total-width.rl.v [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
value 

The address of the integer to be written to the file. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error. 


PAS$WRITE_OCT 

4.3.7 Write an Octal Value (PAS$WRITE_OCT) 

PAS$WRITE_OCT writes a value's octal representation to the specified text file. 

Format WRITE ( [file-variable J { OCT (expression [, length [, digits if)} ,... ,ERROR : = 

error-recovery J ) 

generates CALL PAS$WRITE_OCT ( file-var.mr.r, nbits.rl.v, value.rz.r, total-width.rl.v [, [error.j.r] 

[, min-digits.rl.v] ] ) 

Arguments 

file-var 

The PFV for this file, 
nbits 

The size of value in bits, 
value 

The address of the value to be written to the file. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error. 
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min-digits 

The minimum number of digits to appear in the result. The default is the minimum number of 
digits needed to represent every bit of the value. 


PAS$WRITE-REALE-X 


4.3.8 Write a Floating-Point Value in Exponential Format (PAS$WRITE_REALE_x) 

The PAS$WRITE_REALE_x routines write a floating-point value in exponential notation to the speci¬ 
fied text file. 

Format WRITE ( [file-variable ,] { real-var[:field-widthl } ,... [,ERROR := error-recovery J ) 

generates CALL PAS$WRITE_REALE_D ( file-var.mr.r, value.rd.v, total-width.rl.v [, error.j.r]) 
CALL PAS$WRITE_REALE_F (file-var.mr.r, value.rf.v, total-width.rl.v [, error.j.r]) 
CALL PAS$WRITE_REALE_G ( file-var.mr.r, value.rg.v, total-width.rl.v [, error.j.r]) 
CALL PAS$WRITE_REALE_H ( file-var.mr.r, value.rh.v, total-width.rl.v [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
value 

The floating-point value to be written to the file. Note that this argument is passed by immediate 
value, occupying two argument list positions for D_floating and G_floating and four argument list 
positions for H_floating. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error. 


PAS$WRITE-REALF-x 


4.3.9 Write a Floating-Point Value in Fixed-Point Notation (PAS$WRITE_REALF_x) 

The PAS$WRITE_REALF_x routines write a floating-point value in fixed-point notation to the speci¬ 
fied text file. 

Format WRITE ( (file-variable J {real-var:field-width:fraction},... [,ERROR := error-recovery [ ) 

generates CALL PAS$WRITE_REALF_D ( file-var.mr.r, value.rd.v, total-width.rl.v, frac-digits.rl.v 

[, error.j.r] ) 

CALL PAS$WRITE_REALF_F ( file-var.mr.r, value.rf.v, total-width.rl.v, frac-digits.rl.v 
[, error.j.r] ) 

CALL PAS$WRITE_REALF_G ( file-var.mr.r, value.rg.v, total-width.rl.v, frac-digits.rl.v 
[, error.j.r]) 

CALL PAS$WRITE_REALF_H ( file-var.mr.r, value.rh.v, total-width.rl.v, frac-digits.rl.v 
[, error.j.r]) 
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Arguments 

file-var 

The PFV for this file. 


value 

The floating-point value to be written to the file. Note that this argument is passed by immediate 
value, occupying two argument list positions for D_floating and G_floating and four positions for 
H_floating. 


total-width 

The total field width. 


frac-digits 

The number of digits in the fraction. 


error 

The address to which to unwind in case of error. 

PAS$WRITE—REALF—xl 


4.3.10 Write a Floating-Point Value in Fixed-Point Notation (VI Syntax) 

PAS$WRITE_REALF_x1 writes a floating-point value in fixed-point notation to the specified text file 
using VAX-11 PASCAL Version 1 semantics. In Version 1 semantics, nonnegative values have an 
extra leading blank, contrary to the ISO standard. 

PAS$WRITE_REALF_x1 is called when the program is compiled with the OLD_VERSION qualifier. 

Format WRITE ( [file-variable ,J {real-var:field-width:fraction},... [,ERROR := error-recovery ]) 

generates CALL PAS$WRITE_REALF_D1 (file-var.mr.r, value.rd.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

CALL PAS$WRITE_REALF_F1 ( file-var.mr.r, value.rf.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

Arguments 

file-var 

The PFV for this file, 
value 

The floating-point value to be written to the file. Note that this argument is passed by immediate 
value, occupying two argument list positions for D_floating. 

total-width 

The total field width. 

frac-digits 

The number of digits in the fraction, 
error 

The address to which to unwind in case of error. 
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PAS$WRITE—STRING 


4.3.11 Write a Fixed-Length String (PAS$WRITE-STRING) 

PAS$WRITE_STRING writes a fixed-length string to the specified text file. 

Format WRITE ( (file-variable ,) { string-var} [,ERROR := error-recovery | ) 

generates CALL PAS$WRITE_STRING (file-var.mr.r, string-length.rw.v, string.rt.r [, [error.j.r] 
[, total-width.rl.v] ] ) 

Arguments 

file-var 

The PFV for this file, 
string-length 

The length of the string to be written to the file, 
string 

The address of the string to be written to the file, 
error 

The address to which to unwind in case of error, 
total-width 

The total field width, which by default is the string's length. 


PAS$WRITE—UNSIGNED 


4.3.12 Write an Unsigned Decimal Integer (PAS$WRITE-UNSIGNED) 

PAS$WRITE_UNSIGNED writes an unsigned integer to the specified text file. 

Format WRITE ( [file-variable J {unsigned-int-var[:field-widthj},... [,ERROR : = 

error-recovery J ) 

generates CALL PAS$WRITE_UNSIGNED ( file-var.mr.r, value.rlu.v, total-width.rl.v [, error.j.r]) 
Arguments 

file-var 

The PFV for this file, 
value 

The integer to be written to the file. 

total-width 

The total field width. 

error 

The address to which to unwind in case of error. 
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PAS$WRITE-VARYING 


4,3.13 Write a Varying String (PAS$WRITE_VARYING) 

PAS$WRITE_VARYING writes a varying-length string to the specified text file. 

Format WRITE ( [file-variable ,J {varying-str-var|[:field-width|},... [,ERROR := error-recovery | ) 

generates CALL PAS$WRITE_VARYING ( file-var.mr.r, value.rvt.r [, [error.j.r] [, 
total-width.rl.v] ] ) 

Arguments 

file-var 

The PFV for this file, 
value 

The address of the string to be written to the file. The string's current length is represented by an 
integer value in the first word of the string. 

error 

The address to which to unwind in case of error, 
total-width 

The total field width, which by default is the string's length. 


PAS$WRITELN2 


4.3.14 Output Current Buffer and Start a New Record (PAS$WRITELN2) 

PAS$WRITELN2 implements the WRITELN procedure by writing the current contents of the buffer to 
the specified text file and positioning the file to the beginning of the next line. 

Format WRITELN ( [file-variable, J {variable-identifier} ,... [,ERROR := error-recovery [ ) 

generates CALL PAS$WRITELN2 ( file-var.mr.r [, error.j.r]) 

Arguments 

file-var 

The PFV for the file, 
error 

The address to which to unwind in case of error. 
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Chapter 5 

Character-String Procedures 


The Run-Time Library routines described in this chapter support the VAX-1 1 PASCAL procedures 
READV and WRITEV. 

5.1 Read from a Character String 

The READV procedure reads values from a character string expression and assigns them to the 
variables in the variable list. To accomplish this, the compiler creates a descriptor of the source 
string. It then calls the Run-Time Library once for each variable named in the variable list, passing the 
string descriptor and the variable name as parameters. Each Run-Time Library PAS$READV_x 
routine: 

• Reads a value 

• Assigns the value to the variable 

• Updates the DSC$W_LENGTH and DSC$A_POINTER fields in the string descriptor to describe the 
unread portion of the string 

Thus, the routine called to read the next variable in the list starts with the first character not read by 
the previous routine. 

However, if the program issues another READV that refers to the same string, the next series of calls 
starts over from the string's beginning. 

The descriptor of the string from which values are read is assumed to be a class S descriptor. The 
PAS$READV_x routines ignore the descriptor's class and data-type fields and modify its length and 
pointer fields, so that the descriptor always describes the unread portion of the string. 

The string itself is treated as though it were a text file containing only a single line. Attempts to read 
past the end of the string cause the same errors as attempts to read past the end of a file. 
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PAS$READV-BOOLEAN 


5.1.1 Read a Boolean (PAS$READV_BOOLEAN) 

Format READV ( string, boolean-var) 

generates result.wv.v = PAS$READV_BOOLEAN ( string-dsc.mdsc.r [, error.j.r]) 

Arguments 

result 

The boolean value read from the string, 
string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 

error 

The address to which to branch in case of error. 


PAS$READV-CHAR 

5.1.2 Read a Single Character (PAS$READV_CHAR) 

Format READV ( string, character-var) 

generates result.wc.v = PAS$READV_CHAR ( string-dsc.mdsc.r [, error.j.r]) 

Arguments 

result 

The character read from the string, 
string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 

error 

The address to which to branch in case of error. 


PAS$READV-ENUMERATED 

5.1.3 Read an Enumerated-Type Value (PAS$READV_ENUMERATED) 

Format READV ( string, enumerated-var) 

generates result.wlu.v = PAS$READV_ENUMERATED ( string-dsc.mdsc.r, 

enumerated-descr.rz.r [, error.j.r]) 
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Arguments 


result 

The enumerated-type value read from the string, 
string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 

enumerated-descr 

The PASCAL enumerated type descriptor (PETD) for this enumerated type. See the description of 
PAS$READ-ENUMERATED for the layout of the PETD. 

error 

The address to which to branch in case of error. 


PAS$READV-INTEGER 


5.1.4 Read a Decimal Integer (PAS$READV_INTEGER) 

Format READV ( string, integer-var ) 

generates result.wl.v = PAS$READV_INTEGER ( string-dsc.mdse.r [, error.j.r]) 

Arguments 

result 

The value of the integer read, 
string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 

error 

The address to which to branch in case of error. 


PAS$READV-REAI_x 


5.1.5 Read a Floating-Point Value (PAS$READV_REAI_x) 

Format READV ( string, real-var ) 

generates result.wf.v = PAS$READV_REA!_F ( string-dsc.mdsc.r [, error.j.r]) 

result.wd.v = PAS$READV_REA1_D ( string-dsc.mdsc.r [, error.j.r]) 

result.wg.v = PAS$READV_REAI_G ( string-dsc.mdsc.r [, error.j.r]) 

CALL PAS$READV_REAI_H ( result.wh.r, string-dsc.mdsc.r [, error.j.r]) 
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Arguments 


result 

The floating-point value read from the string, returned as a function value. For H_floating values, 
the result is larger than 64 bits and is therefore returned by reference to the first argument, with all 
other arguments shifted right by one. 

string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 

error 

The address to which to branch in case of error. 

PAS$READV-STRING 


5.1.6 Read a Fixed-Length String (PAS$READV_STRING) 

Format READV ( string, string-var ) 

generates CALL PAS$READV_STRING ( result.wt.r, string-dsc.mdse.r, string-length.rw.v 

[,error.j.r]) 

Arguments 

result 

The string read. If fewer than string-length characters remain in the string, the returned string is 
padded with blanks. 

string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 

error 

The address to which to branch in case of error. 

PAS$READV-UNSIGNED 


5.1.7 Read an Unsigned Decimal Integer (PAS$READV_UNSIGNED) 

Format READV ( string, unsigned-integer-var) 

generates result.wlu.v = PAS$READV_UNSIGNED ( string-dsc.mdse.r [, error.j.r]) 

Arguments 

result 

The value of the unsigned integer read, 
string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 
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error 

The address to which to branch in case of error. 


PAS$READV_ VARYING 


5.1.8 Read a Varying-Length String (PAS$READV_VARYING) 

Format READV ( string, varying-string-var) 

generates CALL PAS$READV_VARYING ( result.wvt.r, string-dsc.mdsc.r, max-length.rw.v 
[, error.j.r]) 

Arguments 

result 

The returned string. If fewer than max-length characters remain in the string, the string contains 
only the remaining characters. 

string-dsc 

The descriptor of the string from which to read the value. The length (DSC$W_LENGTH) and 
pointer (DSC$A_POINTER) fields are updated to describe the unread portion of the string. 

error 

The address to which to branch in case of error. 


5.2 Writing to a Varying String 

The WRITEV procedure appends the textual representations of a series of variables in a variable list to 
the end of a varying string. The compiler creates the output string with its current length set to zero. It 
then calls the Run-Time Library once for each variable named in the variable list, passing the string 
and the variable name as parameters. Each Run-Time Library PAS$WRITEV_x routine: 

• Writes the value to the end of the string 

• Updates the current length field to indicate the length of the new string 

Thus, the routine called to write the next variable in the list appends that value to the end of the 
string. 

If the program issues another WRITEV that refers to the same string, the next series of calls starts with 
a zero-length string again. 


PAS$WRITEV—BIN 


5.2.1 Write a Binary Value (PAS$WRITEV_BIN) 

Format WRITEV (string, BIN ( real-var [, length [, digits ] ] ) ) 

generates CALL PAS$WRITEV_BIN ( max-length.rw.v, varying-str.mvt.r, value-size.rl.v, 

value.rz.r, total-width.rl.v [, [error.j.r] [, min-digits.rl.v] ] ) 
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Arguments 


max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the value's binary representation is to be appended, 
value-size 

The value's size in bits, 
value 

The binary value to be appended to the varying string, 
total-width 

The width of the field to be written, 
error 

The address to which to branch in case of error, 
min-digits 

The minimum number of digits to be written. The default is the number of digits needed to 

represent every bit of the value. 


PAS$WRITEV—BOOLEAN 


5.2.2 Write a Boolean Value (PAS$WRITEV_BOOLEAN) 

Format WRITEV (string, boolean-var ) 

generates PAS$WRITEV_BOOLEAN ( max-length.rw.v, varying-str.mvt.r, value.rv.v, 
total-width.rl.v [, error.j.r]) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
value 

The Boolean value to be appended, 
total-width 

The width of the field to be written, 
error 

The address to which to branch in case of error. 
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PAS$WRITEV—CHAR 


5.2.3 Write a Single Character (PAS$WRITEV_CHAR) 

Format WRITEV (string, character-var ) 

generates CALL PAS$WRITEV_CHAR ( max-length.rw.v, varying-str.mvt.r, value.rc.v, 
total-width.rl.v [, error.j.r] ) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
value 

The character to append to the string, 
total-width 

The width of the field to be written, 
error 

The address to which to branch in case of error. 


PAS$WRITEV-ENUMERATED 


5.2.4 Write an Enumerated-Type Value (PAS$WRITEV_ENUMERATED) 

Format WRITEV (string, enumerated-var ) 

generates CALL PAS$WRITEV_ENUMERATED ( max-length.rw.v, varying-str.mvt.r, 
enumerated-descr.rz.r, value.rlu.v, total-width.rl.v [, error.j.r]) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
enumerated-descr 

The PASCAL enumerated type descriptor (PETD) for this enumerated type. See the description of 
PAS$WRITE_ENUMERATED for the layout of the PETD. 

value 

The enumerated-type value to be appended to the string, 
total-width 

The width of the field to be written, 
error 

The address to which to branch in case of error. 
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PAS$WRITEV—HEX 


5.2.5 Write a Hexadecimal Value (PAS$WRITEV_HEX) 

Format WRITEV (string, HEX ( real-var [, length ||, digits] ) ) ) 

generates CALL PAS$WRITEV_HEX ( max-length.rw.v, varying-str.mvt.r, value-size.rl.v, 
value.rz.r, total-width.rl.v [, [error.j.r] [, min-digits.rl.v] ] ) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the value's hexadecimal representation is to be appended, 
value-size 

The size of the value in bits, 
value 

The value whose hexadecimal representation is to be appended to the string, 
total-width 

The width of the field to be written, 
error 

The address to which to branch in case of error, 
min-digits 

The minimum number of digits to be written. The default is the number of digits needed to 
represent every bit of the value. 

PAS$WRITEV-INTEGER 


5.2.6 Write a Signed Decimal Integer (PAS$WRITEEV-INTEGER) 

Format WRITEV (string, integer-var) 

generates CALL PAS$WRITEV_INTEGER ( max-length.rw.v, varying-str.mvt.r, value.rl.v, 
total-width.rl.v [, error.j.r]) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
value 

The signed integer to append to the string, 
total-width 

The width of the field to be written. 
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error 

The address to which to branch in case of error. 


PAS$WRITEV—OCT 


5,2.7 Write an Octal Value (PAS$WRITEV_OCT) 

Format WRITEV (string, OCT ( real-var [, length [, digits) | ) ) 

generates CALL PAS$WRITEV_OCT ( max-length.rw.v, varying-str.mvt.r, value-size.rl.v, 
value.rz.r, total-width.rl.v [, [error.j.r] [, min-digits.rl.v] ] ) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the value's octal representation is to be appended, 
value-size 

The size of the value in bits, 
value 

The value whose octal representation is to be appended to the string, 
total-width 

The width of the field to be written, 
error 

The address to which to branch in case of error, 
min-digits 

The minimum number of digits to be written. The default is the number of digits needed to 
represent every bit of the value. 


PAS$WRITEV—REALE—x 


5.2.8 Write a Floating-Point Number in Exponential Notation 
(PAS$WRITEV_REALE_x) 


Format 

generates 


WRITEV (string, real-var ) 

CALL PAS$WRITEV_REALE_F ( max-length.rw.v, varying-str.mvt.r, value.rf.v, 
total-width.rl.v [, error.j.r]) 

CALL PAS$WRITEV_REALE_D ( max-length.rw.v, varying-str.mvt.r, value.rd.v, 
total-width.rl.v [, error.j.r]) 

CALL PAS$WRITEV_REALE_G ( max-length.rw.v, varying-str.mvt.r, value.rg.v, 
total-width.rl.v [, error.j.r]) 

CALL PAS$WRITEV_REALE_H ( max-length.rw.v, varying-str.mvt.r, value.rh.v, 
total-width.rl.v [, error.j.r]) 
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Arguments 


max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
value 

The floating-point value to be written to the output string in exponential notation. Note that 
D_floating and G_floating numbers occupy two argument list positions and H_floating numbers 
occupy four argument list positions. 

total-width 

The width of the field to be written, 
error 

The address to which to branch in case of error. 

PAS$WRITEV—REALF—x 

5.2.9 Write a Floating-Point Number in Fixed-Point Notation 
(PAS$WRITEV_REALF—x ) 

Format WRITEV (string, real-var:length :digits( ) 

generates CALL PAS$WRITEV_REALF_F ( max-length.rw.v, varying-str.mvt.r, value.rf.v, 
total-width.rl.v, frac-digits.rl.v [, error.j.r]) 

CALL PAS$WRITEV_REALF_D ( max-length.rw.v, varying-str.mvt.r, value.rd.v, 
total-width.rl.v, frac-digits.rl.v [, error.j.r]) 

CALL PAS$WRITEV_REALF_G ( max-length.rw.v, varying-str.mvt.r, value.rg.v, 
total-width.rl.v, frac-digits.rl.v [, error.j.r]) 

CALL PAS$WRITEV_REALF_H ( max-length.rw.v, varying-str.mvt.r, value.rh.v, 
total-width.rl.v, frac-digits.rl.v [, error.j.r]) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
value 

The floating-point value whose fixed-point representation is to be appended to the output string. 
Note that D_floating and G_floating numbers occupy two argument list positions and H_floating 
numbers occupy four argument list positions. 

total-width 

The width of the field to be written, 
frac-digits 

The number of digits in the fraction, 
error 

The address to which to branch in case of error. 
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PAS$WRITEV-STRING 


5.2.10 Write a Fixed-Length String (PAS$WRITEV_STRING) 

Format WRITEV (string, string-var ) 

generates CALL PAS$WRITEV_STRING ( max-length.rw.v, varying-str.mvt.r, string-length.rw.v, 
value.rt.r [, error.j.r] [, total-width.rl.v] ) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
string-length 

The length of the string to be appended to the output string, 
value 

The fixed-length string to append to the output string, 
error 

The address to which to branch in case of error, 
total-width 

The width of the field to be written. The default is string-length. 


PAS$WRITEV-UNSIGNED 


5.2.11 Write an Unsigned Decimal Integer (PAS$WRITEV_UNSIGNED) 

Format WRITEV (string, unsigned-integer-var) 

generates CALL PAS$WRITEV_UNSIGNED ( max-length.rw.v, varying-str.mvt.r, value.rlu.v, 
total-width.rl.v [, error.j.r]) 


Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended. 


value 

The unsigned integer value to be appended to the output string, 
total-width 

The width of the field to be written. 


error 

The address to which to branch in case of error. 
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PAS$WRITEV_ VARYING 


5.2.12 Write a Varying String (PAS$WRITEV_VARYING) 

Format WRITEV (string, varying-string-var) 

generates CALL PAS$WRITEV_VARYING ( max-length.rw.v, varying-str.mvt.r, value.rvt.r 
[, [error.j.r] [, total-width.rl.v] ] ) 

Arguments 

max-length 

The maximum length of the output string, 
varying-str 

The varying string to which the output value is to be appended, 
value 

The string to be appended to the output string, 
error 

The address to which to branch in case of error, 
total-width 

The width of the field to be written. 
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Chapter 6 

Data Conversion and Manipulation Routines 


This chapter describes the PASCAL-specific Run-Time Library procedures that support the VAX-11 
PASCAL transfer functions, arithmetic functions, and string functions. 

6.1 Data Conversion Routines 

This section describes the data conversion routines that support certain VAX—11 PASCAL predeclared 
functions. The compiler does not generate calls to many of these routines unless the predeclared 
function's name is passed as an argument to another procedure. Normally, in-line code is generated 
to perform the function. Some PASCAL predeclared functions may also call MTH$ and OTS$ routines 
to perform data conversion. 

The "Messages" section of each routine's description does not list all possible errors; rather, it 
includes only the more common messages. Others errors can occur. See the VAX—/ 1 PASCAL User's 
Guide for a complete list of PASCAL errors. 


PAS$CONVERT—I_BU 


6.1.1 Convert a Signed Longword to an Unsigned Byte (PAS$CONVERT_l—BU) 

PAS$CONVERT_l_BU converts a signed longword to an unsigned byte. Overflow is possible. 

Format CHR (int-var) 

generates result.wbu.v = PAS$CONVERT_l—BU ( value.rl.r) 

Arguments 

result 

The unsigned byte value of the argument, 
value 

The signed longword to be converted. 
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Messages 


SS$_INTOVF 

Integer overflow. This error is returned if the value of the argument is less than 0 or greater than 
255. If continued, the low-order eight bits are stored in result. 

PAS$CONVERT-X-F 


6.1.2 Convert a Value to F_Floating (PAS$CONVERT_x_F) 

The PAS$CONVERT_x_F routines support the PASCAL transfer function SNGL. They return the input 
value rounded to its single-precision equivalent. 

Format SNGL (num-var) 

generates result.wf.v = PAS$CONVERT_LU-F ( value.rlu.r) 

result.wf.v = PAS$CONVERT_F_F ( value.rf.r) 
result.wf.v = PAS$CONVERT_H_F ( value.rh.r ) 

Arguments 

result 

The argument's nearest F_floating representation, 
value 

The unsigned longword or F_floating or H_floating number to be converted. 

Messages 

SS$_FLTOVF 

Floating-point overflow. 

SS$_ROPRAND 

Reserved operand. 


PAS$CONVERT—x—D 
PAS$CONVERT—x—G 


6,1.3 Convert a Value to Double Precision (PAS$CONVERT_x_D, 
PAS$CONVERT_x-G) 


These routines support the PASCAL transfer function DBLE. They convert the input value to its nearest 
double-precision representation. 


Format 


DBLE (num-var) 


generates 


result.wd.v 
result.wd.v 
result.wd.v 
result, wg.v 
result.wg.v 
result.wg.v 


PAS$CONVERT_LU_D ( value.rlu.r ; 
PAS$CONVERT_D_D ( value.rd.r ) 
PAS$CONVERT_H_D ( value.rh.r ) 
PAS$CONVERT_LU_G ( value.rlu.r 
PAS$CONVERT_G_G ( value.rg.r ) 
PAS$CONVERT_H_G ( value.rh.r ) 


PAS 66 Data Conversion and Manipulation Routines 


September 1982 



Arguments 


result 

The argument's nearest double-precision representation, 
value 

The unsigned longword, or D_floating, G_floating, or H__floating number to be converted. 

Messages 

SS$_FLTOVF 

Floating-point overflow. 

SS$_ROPRAND 

Reserved operand. 


PAS$CONVERT—x—H 


6.1.4 Convert a Value to H_Floating (PAS$CONVERT_x-H) 

The PAS$CONVERT_x_F1 routines support the PASCAL transfer function QUAD. They convert the 
input value to its nearest H_floating representation. 

Format QUAD (num-var) 

generates CALL PAS$CONVERT_l_H ( result.wh.r, value.rl.r) 

CALL PAS$CONVERT_LU_H ( result.wh.r, value.rlu.r ) 

CALL PAS$CONVERT_F_H ( result.wh.r, value.rf.r ) 

CALL PAS$CONVERT_D_H ( result.wh.r, value.rd.r ) 

CALL PAS$CONVERT_G_F1 ( result.wh.r, value.rg.r ) 

CALL PAS$CONVERT_H_H ( result.wh.r, value.rh.r ) 

Arguments 

result 

The H_floating result, 
value 

The signed or unsigned longword or F_floating, D_floating, G_floating, or H_floating number to 
be converted. 

Messages 

SS$_FLTOVF 

Floating-point overflow. 

SS$_ROPRAND 

Reserved operand. 
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PAS$CONVERT_x-L 


6.1.5 Convert a Value to a Signed Longword (PAS$CONVERT_x_L) 


The PAS$CONVERT_x_L routines support the PASCAL transfer function ORD. Overflow can occur. 


Format 

generates 


Arguments 


ORD (num-var) 


result.wl.v 
result.wl.v 
result.wl.v 
result.wl.v 
result.wl.v 


PAS$CONVERT_BU_L ( value.rbu.r ) 
PAS$CONVERT_WU_L ( value.rwu.r ) 

PAS$CONVERT_I_L ( value.rl.r ) 

PAS$CONVERT_LU_L ( value.rlu.r) 
PAS$CONVERT_BOOI_L ( value.rv.r ) 


result 

The signed longword value of the argument, extended with zeros if necessary to make a long- 
word. A Boolean argument returns the low-order bit zero-extended to a longword. Overflow is 
possible during conversion of an unsigned longword to a signed longword. 


value 

The unsigned byte, unsigned word, signed or unsigned longword, or Boolean value to be 
converted. 


Messages 

SS$_INTOVF 

Integer overflow. This error can occur when the value of an unsigned longword argument is 
greater than 2**31 —1. If the program continues execution, the argument is stored directly in 
result , without conversion. 


PAS$ROUND-x_LU 


6.1.6 Round a Floating-Point Number to an Unsigned Integer (PAS$ROUND_x_LU) 


The PAS$ROUND_x_LU routines support the VAX-11 PASCAL transfer function UROUND. They 
convert the value of the input parameter to an unsigned integer by rounding the fractional part of the 
value. 


These routines never overflow. Instead, the value is rounded modulus 2**32. 


Format 

generates 


Arguments 


UROUND (real-var) 


result.wlu.v 
result.wlu.v 
result.wlu.v 
result.wlu.v 


PAS$ROUND_F_LU ( value.rf.r ) 
PAS$ROUND_D_LU ( value.rd.r ) 
PAS$ROUND_G_LU ( value.rg.r ) 
PAS$ROUND_H_LU ( value.rh.r ) 


result 

The unsigned longword value of the argument, rounded to the nearest integer modulus 2**32. 
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value 

The D_floating, F_floating, G_floating, or H_floating number to be rounded to an unsigned 
longword. 

Messages 

SS$_ROPRAND 

Reserved operand. 


PAS$TRUNC—x-LU 


6.1.7 Truncate a Floating-Point Number to an Unsigned Integer 
(PAS$TRUNC—X—LU) 

The PAS$TRUNC_x_LU routines support the VAX—11 PASCAL transfer function UTRUNC. They 
convert the input value to an unsigned integer by truncating the fractional part of the value. 

These routines never overflow. The value is truncated to the nearest integer modulus 2**32. 

Format UTRUNC (real-var) 

generates result.wlu.v = PAS$TRUNC_F_LU ( value.rf.r) 

result.wlu.v = PAS$TRUNC_D_LU ( value.rd.r ) 
result.wlu.v = PAS$TRUNC_G_LU ( value.rg.r ) 
result.wlu.v = PAS$TRUNC_H_LU ( value.rh.r ) 

Arguments 

result 

The unsigned longword value of the argument, truncated to the nearest integer modulus 2**32. 
value 

The D_floating, F_floating, G_floating, or H_floating number to be converted. 

Messages 

SS$_ROPRAND 

Reserved operand. 

6.2 Scalar Functions 


PAS$ABS—L 


6.2.1 Compute Absolute Value Without Overflow Checking (PAS$ABS_L) 

PAS$ABS_L implements the PASCAL arithmetic function ABS. It computes the absolute value of a 
signed integer and returns a result of the same type. 

Format ABS (int-var) 

generates result.wl.v = PAS$ABS-L (value.rl.r) 
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Arguments 


result 

The absolute value of the argument. If value is —2**31, the result returned is —2**31 to prevent 
overflow. 

value 

The signed longword whose absolute value is to be determined. 


PAS$CARD2 


6,2.2 Return Number of Components in Set (PAS$CARD2) 

PAS$CARD2 implements the PASCAL function CARD. It returns as its function value the number of 
elements in the specified set (the set's cardinality). The cardinality of a set is the number of "1" bits 
currently in the set value. 

Format CARD (set-name) 

generates result.wl.v = PAS$CARD2 ( set-size.rl.v, set.rz.r) 

Arguments 

result 

The number of "1" bits in the set. 
set-size 

The size of the set in bytes. All sets are stored as an integral number of bytes, with unused bits 
stored as zeros. 


set 

The set to be tested. 

PAS$EXPO—x 


6.2.3 Extract Unbiased Binary Exponent (PAS$EXPO_x) 


The PAS$EXPO_x routines support the PASCAL function EXPO. They return the unbiased binary 
exponent of a number's floating-point representation. 


Format EXPO (real-var) 


generates result.wl.v = 

result.wl.v = 
result.wl.v 
result.wl.v = 


PAS$EXPO_F ( value.rf.r) 
PAS$EXPO_D ( value.rd.r) 
PAS$EXPO_G ( value.rg.r) 
PAS$EXPO—H ( value.rh.r) 


PAS 70 


Data Conversion and Manipulation Routines 


September 1982 




Arguments 


result 

The unbiased binary exponent of the argument, 
value 

The address of the floating-point number whose exponent is to be returned. 


PAS$ODD 


6.2.4 Return True if Value Odd (PAS$ODD) 

PAS$ODD implements the PASCAL Boolean function ODD. It tests an input integer and returns TRUE 
if the value is odd and FALSE otherwise. 

Format ODD (int-var) 

generates result.wv.v = PAS$ODD ( value.rl.r) 

Arguments 

result 

The Boolean result, 
value 

The value to be tested. 


PAS$SQR_x 


6.2.5 Return the Square of a Value (PAS$SQR_x) 

PAS$SQR_x implements the PASCAL arithmetic function SQR by computing the square of an input 

value and returning the result as a value of the same type. 

Format SQR (num-var) 

generates result.wl.v = PAS$SQR_L ( value.rl.r ) 

result.wlu.v = PAS$SQR_LU ( value.rlu.r ) 
result.wf.v = PAS$SQR_F ( value.rf.r) 
result.wd.v = PAS$SQR_D ( value.rd.r) 
result.wg.v = PAS$SQR_G ( value.rg.r ) 

CALL PAS$SQR_H ( result.wh.r, value.rh.r ) 

Arguments 

result 

The square of the argument. An H_floating result is returned by reference; results of all other 

types are returned by value. 

value 

The address of the number to be squared. 
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PAS$UNDEFINED-x 


6.2,6 Test for Reserved Operand (PAS$UNDEFINED_x) 

PAS$UNDEFINED_x implements the VAX-11 PASCAL function UNDEFINED by testing a floating¬ 
point value to determine if it is a reserved floating operand. (See the VAX Architecture Handbook for 
details about reserved floating operands.) These routines return TRUE if the number is a reserved 
operand and FALSE if it is not. 

Format UNDEFINED (real-var) 

generates result.wv.v = PAS$UNDEFINED_F ( value.rf.r) 

result.wv.v = PAS$UNDEFINED_D ( value.rd.r ) 
result.wv.v = PAS$UNDEFINED_G ( value.rg.r) 
result.wv.v = PAS$UNDEFINED_H ( value.rh.r ) 

Arguments 

result 

The result of the test: 

0 False. The value is not a reserved operand. 

1 True. The value is a reserved operand, 

value 

The floating-point value to be tested. 

6.3 String Routines 
PAS$BIN 

6.3.1 Convert Value to Binary-Format Text (PAS$BIN) 

PAS$BIN implements the VAX-11 PASCAL BIN function. It converts a value to its binary representa¬ 
tion and stores that result in a varying-length string. 

Format BIN ( var [, length [ , digits) J ) 

generates CALL PAS$BIN ( result.wt.r, total-width.rw.v, nbits.rl.v, value.rz.r [, min-digits.rl.v] ) 

Arguments 

result 

The string into which the result will be placed. 

total-width 

The total field width. 

nbits 

The length of value in bits, 
value 

The address of the value to be written. 
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mi n-digits 

The minimum number of digits to appear in result . The default is the number needed to represent 
every bit of the value. 


PAS$HEX 


6.3.2 Convert Value to Hexadecimal-Format Text (PAS$HEX) 

PAS$HEX implements the VAX—11 PASCAL function HEX. It converts a value to its hexadecimal 
representation and stores that result in a varying-length string. 

Format HEX ( var [, length [, digits J ) ) 

generates CALL PASSHEX ( result.wt.r, total-width.rw.v, nbits.rl.v, value.rz.r [, min-digits.rl.v] ) 

Arguments 

result 

The string into which the result will be placed. 

total-width 

The total field width. 

nbits 

The length of value in bits, 
value 

The address of the value to be written, 
min-digits 

The minimum number of digits to appear in result. The default is the number needed to represent 
every bit of the value. 


PASSOCT 


6.3.3 Convert Value to Octal-Format Text (PASSOCT) 

PAS$OCT implements the VAX-11 PASCAL function OCT. It converts a value to its octal representa¬ 
tion and stores that result in a varying-length string. 

Format OCT ( var [ , length j , digits I j ) 

generates CALL PASSOCT ( result.wt.r, total-width.rw.v, nbits.rl.v, value.rz.r [, min-digits.rl.v] ) 

Arguments 

result 

The string into which the result will be placed. 

total-width 

The total field width. 
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nbits 

The length of value in bits. 
value 

The address of the value to be written, 
min-digits 

The minimum number of digits to appear in result. The default is the number needed to represent 
every bit of the value. 
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Chapter 7 

Miscellaneous Procedures 


The routines described in this chapter support various VAX—11 PASCAL functions and procedures. 
They include: 

• Program control routines (PAS$GOTO and PAS$HALT) 

• Date and time functions (PAS$CLOCK2, PAS$DATE) 

• Dynamic memory management routines (PAS$NEW2, PAS$DISPOSE2, PAS$MARK2, and 
PASSRELEASE2) 

• Data conversion routines (the PAS$CVT_x_T routines) 

7.1 Program Control Procedures 


PAS$GOTO 


7.1.1 Perform Nonlocal GOTO (PAS$GOTO) 

PAS$GOTO performs a GOTO to a frame other than the current frame. It searches back through the 
stack, counting the number of frames between the current frame and the destination frame, and then 
unwinds to the destination frame. 

Format GOTO label 

generates CALL PAS$GOTO ( dest-frame.r.v, dest-pc.r.v) 

Arguments 

dest-frame 

The frame pointer of the destination frame, 
dest-pc 

The destination PC. 
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PAS$HALT 


7.1.2 Exit Image (PAS$HALT) 

PAS$HALT implements the PASCAL procedure HALT by signalling the error message PAS$_HALT. 
Unless a user condition handler intercepts this exception, program execution will terminate. 

Format HALT 

generates CALL PAS$HALT 

Arguments 

None. 

7.2 Date and Time Routines 

PAS$CLOCK2 

7.2.1 Return Process CPU Time in Milliseconds (PAS$CLOCK2) 

PAS$CLOCK2 returns the process's elapsed CPU time in milliseconds. This value includes time used 
by images previously executed by this process. 

Format CLOCK 

generates result.wl.v = PAS$CLOCK2 

Arguments 

result 

The current process's elapsed CPU time in milliseconds. 


PAS$DATE 

7.2.2 Return Date in Dd-mmm-yyyy Format (PAS$DATE) 

PAS$DATE returns the current system date in the form dd-mmm-yyyy. If the day of the month is a 
single-digit number, a blank replaces the leading zero. 

Format DATE (date-string) 

generates CALL PAS$DATE ( date-string.wt.r) 

Arguments 

date-string 

The 11—character string, passed by reference, to receive the system date. 
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PAS$TIME 


7.2.3 Return Time in Hh:mm:ss.cc Format (PAS$TIME) 

PAS$TIME returns the current system time in the form hh:mm:ss.cc. 

Format TIME (time-string) 

generates CALL PAS$TIME (time-string.wt.r) 

Arguments 

time-string 

The 11-character string, passed by reference, to receive the system time. 

7.3 Dynamic Memory Management Procedures 

The VAX-11 PASCAL run-time support includes routines that implement the predeclared procedures 
NEW and DISPOSE. For compatibility with other implementations of PASCAL, it also provides the 
functions PAS$MARK2 and PAS$RELEASE2 to mark a place on the heap and deallocate all storage 
back to that mark. PAS$MARK2 and PAS$RELEASE2 must be declared as external functions. 


PAS$NEW2 


7.3.1 Allocate a New Variable (PAS$NEW2) 

PAS$NEW2 implements the PASCAL procedure NEW. PAS$NEW2 allocates the requested amount of 
dynamic memory and returns a pointer to that storage as its function value. 

Format NEW (pointer-variable) 

generates pointer.wa.v = PAS$NEW2 ( size.rlu.v ) 

Arguments 

size 

The size in bytes of the requested item, 
pointer 

The pointer to the beginning of the allocated storage. 


PAS$DISPOSE2 


7.3.2 Deallocate a Variable (PAS$DISPOSE2) 

PAS$DISPOSE2 implements the PASCAL predeclared procedure DISPOSE. PAS$DISPOSE2 
deallocates the specified item, which it presumes was allocated by PAS$NEW2. 
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Format DISPOSE (pointer-expression) 

generates CALL PAS$DISPOSE2 ( pointer.ra.v ) 

Arguments 

pointer 

The address of the item to be deallocated. 

PAS$MARK2 


7.3.3 Allocate a New Variable and Mark Place on Heap (PAS$MARK2) 

PAS$MARK2 allocates the requested amount of dynamic memory and returns a pointer to that storage 
as its function value. PAS$MARK2 also marks the item's place in the heap so that a subsequent call to 
PAS$RELEASE2 can deallocate all dynamic storage back to the marked item. 

PAS$MARK2 is not an intrinsic function in VAX—11 PASCAL V2. It is an external function and must 
be declared and called as such. 

Format pointer.wa.v = PAS$MARK2 ( size.rlu.v ) 

Arguments 

size 

The size in bytes of the requested item, 
pointer 

The pointer to the marker. 


PAS$RELEASE2 


7.3.4 Deallocate All Variables Back to Marked Variable (PAS$RELEASE2) 

PAS$RELEASE2 deallocates all storage allocated with PAS$NEW2 or with PAS$MARK2 since the 
storage that pointer identifies was allocated. 

PAS$RELEASE2 is not an intrinsic function in VAX—11 PASCAL V2. It must be declared and called as 
an external function. 

Format CALL PAS$RELEASE2 ( pointer.ra.r ) 

Arguments 

pointer 

The address returned by a previous call to PAS$MARK2. 
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PAS$CVT-x_T 


7.4 Miscellaneous Data Conversion 

7.4.1 Convert a Floating-Point Value to Text (PAS$CVT_x_T) 

The PAS$CVT_x_T routines convert a floating-point value to a text representation and store that 
representation in a result string. The result string represents the argument's value in exponential 
format if the frac-digits parameter is omitted, and in fixed-point notation if the frac-digits parameter is 
present. 

The text is represented in the same form that would be used to write the value to a PASCAL text file. 

The minimum width of the string to be written is indicated by the contents of the argument 
actual-width . PAS$CVT_x_T modifies actual-width to contain the number of characters actually 
used, which may be more than the number initially specified. If the width actually used is less than 
the minimum width, PAS$CVT_x_T stores leading blanks. 

If max-width is less than the width needed, PAS$CVT_x_T returns a failure status and stores the width 
that would be needed to represent the value in actual-width. 

Format status.wlc.v = PAS$CVT_F_T ( value.rz.r, result-str.wt.r, actual-width.ml.r, 

max-width.rl.v, [ frac-digits.rl.v] ) 

status.wlc.v = PAS$CVT_D_T ( value.rz.r, result-str.wt.r, actual-width.ml.r, 
max-width.rl.v, [ frac-digits.rl.v] ) 

status.wlc.v = PAS$CVT_G_T ( value.rz.r, result-str.wt.r, actual-width.ml.r, 
max-width.rl.v, [ frac-digits.rl.v] ) 

status.wlc.v = PAS$CVT_H_T ( value.rz.r, result-str.wt.r, actual-width.ml.r, 
max-width.rl.v, [ frac-digits.rl.v] ) 

Arguments 

value 

The real number to be converted, 
result-str 

The string in which to store the result, 
actual-width 

The minimum width of the destination string. This parameter is updated to show either the width 
actually used or, in case of error, the width that would have been needed to represent the value. 

max-width 

The maximum width of result-str. 
frac-digits 

The number of digits in the fractional part of the number. If this parameter is omitted, result-str is 
represented in exponential notation. 
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Return Status 

A completion code indicating success or failure, as follows: 

1 Success 

0 Failure. The value could not be represented in max-width characters. The parameter actual- 
width contains the number of characters that would be needed to represent the entire value. 
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floating input call by reference arg: 

floating complex call by reference input arg: 

read only character string: 

output fixed-length string: 

output string by descriptor: 

user action routine that returns a cond. value: 


angle_in_rad.rf.r 
angle, rfc.r 
string.rt.ds 
string.wt.ds 
string.wt.dx 
func.fzemlc.r 


Summary Chart of Procedure Parameter Notation 

<name>.<access typexdata type>.<pass mechxparameter form> 


The following notation is used to define these characteristics: 



<access type> 


<data type> 

c 

Call after stack unwind 

a 

Virtual address 

f 

Function call (before return) 

adt 

Absolute date and time 

j 

]MP after unwind 

arb 

8-bit relative virtual address 

m 

Modify access 

arl 

32-bit relative virtual address 

r 

Read-only access 

arw 

16-bit relative virtual address 

s 

Call without stack unwinding 

b 

Byte integer (signed) 

w 

Write-only access 

blv 

Bound label value 



bpv 

Bound procedure value 



bu 

Byte logical (unsigned) 



c 

Single character 



cit 

COBOL intermediate temporary 



cp 

Character pointer 



d 

D__floating 



dc 

D_floating complex 


<passing mechanism> 

dsc 

Descriptor (used by descriptors) 



f 

F_floating 

d 

By descriptor 

fc 

F_floating complex 

r 

By reference 

g 

G_floating 

V 

By immediate value 

gc 

G_floating complex 



h 

H__floating 



he 

H_floating complex 



1 

Longword integer (signed) 



Ic 

Longword return status 



lu 

Longword logical (unsigned) 



nl 

Num. string, It. separate sign 



nlo 

Num. string, It. overpunched sign 



nr 

Num. string, rt. separate sign 


<parameter form> 

nro 

Num. string, rt. overpunched sign 



nu 

Num. string, unsigned 



nz 

Num. string, zoned sign 

- 

Scalar 

o 

Octaword integer (signed) 

a 

Array reference or descriptor 

ou 

Octaword logical (unsigned) 

d 

Dynamic string descriptor 

P 

Packed decimal string 

nca 

Noncontiguous array descriptor 

q 

Quadword integer (signed) 

P 

Procedure reference or dsc 

qu 

Quadword logical (unsigned) 

s 

Fixed-length string descriptor 

r 

Record 

sd 

Scalar decimal descriptor 

t 

Character-coded text string 

uba 

Unaligned bit string array dsc 

u 

Smallest addressable storage unit 

ubs 

Unaligned bit string desc 

V 

Aligned bit string 

vs 

Varying string descriptor 

vt 

Varying character-coded text str. 

vsa 

Varying string array desc 

vu 

Unaligned bit string 

X 

Class type in descriptor 

w 

Word integer (signed) 

xl 

Fixed-length or dynamic 

wu 

Word logical (unsigned) 


string descriptor 

X 

Data type in descriptor 



z 

Unspecified 



zem 

Procedure entry mask 



zi 

Sequence of instruction 
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The notation xy.z means that the argument is passed only to a user-supplied procedure and can have 
any access type (x), data type (y), and passing mechanism (z). 

The order of parameters is generally: 

1. Required input (read, jump, function access) 

2. Required input/output (modify access) 

3. Required output (write access) 

4. Optional input (read, jump, function access) 

5. Optional input/output (modify access) 

6. Optional output (write access) 


Note 

JSB entry points accept parameters in the preceding order in registers starting at RO. 


BASIC-Specific Procedures 

BAS$ANSI_TAB 

Generate a String of Spaces 

CALL BAS$ANSI_TAB (out-str.wt.dxl, position.rl.v) 

BASSBUFSIZ 

Get Buffer Size 

ret-value.wl.v = BASSBUFSIZ (unit.rlu.v) 

BASSCANTYPAHEAD 

Cancel Type Ahead 

CALL BASSCANTYPAHEAD (unit.rlu.v) 

BASSCCPOS 

Get Current Cursor Position 
cursor-pos.wl.v = BASSCCPOS (unit.rlu.v) 

BAS$CHAIN 

Run New Program 

CALL BASSCHAIN (pgm-nam.rt.dx) 

BAS$CHANGE_NA_S 

Convert Array of Numbers to String 

CALL BAS$CHANGE_NA_S (in-str.rx.da, out-str.wt.dxl) 

BAS$CHANGE_S_NA 

Convert String to Array of Numbers 

CALL BAS$CHANGE_S_NA (in-str.rt.dx 1, out-str.wx.da) 

BASSCHR 

Convert Byte to One-Character String 

CALL BASSCHR (out-str.wt.dxl, value.rbu.v) 

BAS$CLOSE 

Close Logical Unit 

CALL BASSCLOSE (unit.rlu.v) 

BAS$CMPD_APP 

Compare Two D_floating Values 

ret-value.wlu.v = BAS$CMPD_APP (vall.rd.v, val2.rd.v) 

BAS$CMPF_APP 

Compare Two F_floating Values 

ret-value.wlu.v = BAS$CMPF_APP (vail .rf.v, val2.rf.v) 

BAS$CMPG_APP 

Compare Two G_floating Values 

ret-value.wlu.v = BAS$CMPG_APP (vail .rg.v, val2.rg.v) 
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BAS$CMPH_APP 

Compare Two H_floating Values 

ret-value.wlu.v = BAS$CMPH_APP (vail .rh.v, val2.rh.v) 

BASSCOMP 

Compare Two Numeric Strings 

diff.wl.v = BAS$COMP (in-strl .rt.dxl, in-str2.rt.dx1) 

BAS$COMPARE 

Compare Two Strings of Any Data Type and Class 
match.wl.v = BAS$COMPARE (in-strl.rt.dxl, in-str2.rt.dx1) 

BASSCTRLC 

Enable CTRL/C Traps 

CALL BASSCTRLC 

BAS$CVTDP 

Convert D_floating to Packed Decimal 

CALL BASSCVTDP (dst.wp.r, dst-len.rl.v, src.rd.r, scale.rl.v) 

BAS$CVTFP 

Convert F_floating to Packed Decimal 

CALL BASSCVTFP (dst.wp.r, dst-len.rl.v, src.rf.r, scale.rl.v) 

BAS$CVTGP 

Convert G_floating to Packed Decimal 

CALL BASSCVTGP (dst.wp.r, dst-len.rl.v, src.rg.r, scale.rl.v) 

BAS$CVTHP 

Convert H_floating to Packed Decimal 

CALL BASSCVTE1P (dst.wp.r, dst-len.rl.v, src.rh.r, scale.rl.v) 

BAS$CVTPD 

Convert Packed Decimal to D_floating 

CALL BASSCVTPD (dst.wd.r, src.rp.r, src-len.rl.v, scale.rl.v) 

BASSCVTPF 

Convert Packed Decimal to F_floating 

CALL BASSCVTPF (dst.wf.r, src.rp.r, src-len.rl.v, scale.rl.v) 

BASSCVTPG 

Convert Packed Decimal to G_floating 

CALL BASSCVTPG (dst.wg.r, src.rp.r, src-len.rl.v, scale.rl.v) 

BASSCVTPH 

Convert Packed Decimal to H_floating 

CALL BASSCVTPH (dst.wh.r, src.rp.r, src-len.rl.v, scale.rl.v) 

BASSCVTRDP 

Convert D_floating to Packed Decimal 

CALL BASSCVTRDP (dst.wp.r, dst-len.rl.v, src.rd.r, scale.rl.v) 

BASSCVTRFP 

Convert F_floating to Packed Decimal 

CALL BASSCVTRFP (dst.wp.r, dst-len.rl.v, src.rf.r, scale.rl.v) 

BASSCVTRGP 

Convert G_floating to Packed Decimal 

CALL BASSCVTRGP (dst.wp.r, dst-len.rl.v, src.rg.r, scale.rl.v) 

BAS$CVTRHP 

Convert H_floating to Packed Decimal 

CALL BASSCVTRHP (dst.wp.r, dst-len.rl.v, src.rh.r, scale.rl.v) 

BAS$CVT_D_S 

Convert D_floating to Eight-Character String 

CALL BAS$CVT_D_S (out-str.wt.d, value.rd.v) 

BAS$CVT_F_S 

Convert F_floating to Four-Character String 

CALL BAS$CVT_F_S (out-str.wt.d, value.rf.v) 

BAS$CVT_OUT_D_E 

Convert D_floating to E—format 

CALL BAS$CVT_OUT_D_E (value.rd.r, num-int.rlu.v, num-fra.rlu.v ( 
flags.rlu.v, out-str-len.wwu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dx1 ] [,radix-pt.rt.dx1 ]) 
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BAS$CVT_OUT_D_F 

BAS$CVT_OUT_D_G 

BAS$CVT_OUT_F_E 

BAS$CVT_OUT_F_F 

BAS$CVT_OUT_G_E 

BAS$CVT_OUT_G_F 

BAS$CVT_OUT_G_G 

BAS$CVT_OUT_H_E 

BAS$CVT_OUT_H_F 

BAS$CVT_OUT_H_G 

BAS$CVT_OUT_P_E 


Convert D_floating to F-format 

CALL BAS$CVT_OUT_D_F (value.rd.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.ww.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

Convert D_floating to E- or F-format 

CALL BAS$CVT_OUT_D_G (value.rd.r, flags.rlu.v, out-str-len.ww.r, 
out-str.wt.dxl [,sca-fac.rb.v [,num-digits.rl.v]]) 

Convert F_floating to E—format 

CALL BAS$CVT_OUT_F_E (value.rf.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wwu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

Convert F_floating to F—format 

CALL BAS$CVT_OUT_F_F (value.rf.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.ww.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

Convert G_floating to E-format 

CALL BAS$CVT_OUT_G_E (value.rg.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

Convert G_floating to F-format 

CALL BAS$CVT_OUT_G_F (value.rg.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

Convert G_floating to E- or F-format 

CALL BAS$CVT_OUT_G_G (value.rg.r, flags.rlu.v, out-str-len.wlu.r, 
out-str.wt.dxl [,sca-fac.rb.v] [,num-digits.rl.v] 

Convert H_floating to E—format 

CALL BAS$CVT_OUT_H_E (value.rh.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

Convert H_floating to F-format 

CALL BAS$CVT_OUT_H_F (value.rh.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

Convert H_floating to E- or F-format 

CALL BAS$CVT_OUT_H_G (value.rh.r, flags.rlu.v, out-str-len.wlu.r, 
out-str.wt.dxl [,sca-fac.rb.v] [,num-digits.rl.v] 

Convert Packed Decimal to E—format 

CALL BAS$CVT_OUT_P_E (value.rp.dsd, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 
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BAS$CVT_OUT_P_F 

Convert Packed Decimal to F-format 

CALL BAS$CVT_OUT_P_F (value.rp.dsd, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wlu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl ] [,digit-sep.rt.dxl ] [,radix-pt.rt.dxl ]) 

BAS$CVT_OUT_P_G 

Convert Packed Decimal to E- or F—format 

CALL BAS$CVT_OUT_P_G (value.rp.dsd, flags.rlu.v, out-str-len.wlu.r 
out-str.wt.dxl [,sca-fac.rb.v] [,num-digits.rl.v] 

BAS$CVT_S_D 

Convert Eight-Character String to D_floating 
ret-value.wd.v = BAS$CVT_S_D (in-str.rt.d) 

BAS$CVT_S_F 

Convert Four-Character String to F_floating 
ret-value.wf.v = BAS$CVT_S_D (in-str.rt.d) 

BAS$CVT_S_W 

Convert Two-Character String to Word Integer 
ret-value.ww.v = BAS$CVT_S_W (in-str.rt.d) 

BAS$CVT_T_P 

Convert Numeric Text String to Packed Decimal 
ret-status.wlc.v = BAS$CVT_T_P (inp-str.rt.dxl, value.wp.dsd 
[,flags.rl.v]) 

BAS$CVT_W_S 

Convert Word Integer to Two-Character String 

CALL BAS$CVT_W_S (out-str.wt.d, value.rw.v) 

BAS$DATE_T 

Perform BASIC Function, DATE$ 

CALL BAS$DATE_T (date-str.wt.dxl, day-num.rl.v) 

BAS$DELETE 

Delete Record 

CALL BAS$DELETE (unit.rlu.v) 

BAS$DET_D 

Retrieve D_floating Determinant 
result.wd.v = BAS$DET_D 

BAS$DET_F 

Retrieve F_floating Determinant 
result.wf.v = BAS$DET_F 

BAS$DET_G 

Retrieve G_floating Determinant 
result.wg.v = BAS$DET_G 

BAS$DET_H 

Retrieve H_floating Determinant 
result.wh.v = BAS$DET_F1 

BASSDIF 

Subtract Two Numeric Strings 

CALL BAS$DIF (out-str.wt.dxl, in-strl .rt.dxl, on-str2.rt.dx1) 

BAS$DSCALE_D_R1 

JSB 

Descale D_floating Value 

result.wd.v = BAS$DSCALE_D_R1 (value.rd.v) 

BAS$ECHO 

Enable Echoing on Logical Unit 

CALL BAS$ECHO (unit.rlu.v) 

BASSEDIT 

Perform BASIC Function, EDIT 

CALL BASSEDIT (out-str.wt.dxl, in-str.rt.dxl, mask.rwu.v) 
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BAS$END_DEF_R8 

JSB 

BAS$END_DFS_R8 

JSB 

BAS$END_GSB_R8 

JSB 

BAS$END_R8 

JSB 

BAS$EXTEND_DIVP 


BAS$EXTEND_MULP 


BAS$FETCH_ADDR 


BAS$FETCH_BFA 


BAS$FETCH_DESC 


BAS$FET_FA_B_R8 

JSB 


BAS$FET_FA_D_R8 

JSB 


BAS$FET_FA_F_R8 

JSB 


BAS$FET_FA_G_R8 

JSB 


BAS$FET_FA_H_R8 

JSB 


BAS$FET_FA_I_R8 

JSB 


Remove BASIC DEF Frame 
BAS$END_DEF_R8 (arg-list.ra.v) 

Remove BASIC DEF* Frame 
BAS$END_DEF_R8 (arg-list.ra.v) 

Return from BASIC GOSUB 
BAS$END_GSB_R8 

Remove BASIC Procedure Frame 
BAS$END_R8 (arg-list.ra.v) 

Extended-precision Packed Decimal Division 

CALL BAS$EXTEND_DIVP (dividend.rp.dsd, divisor.rp.dsd, 

quotient.mp.dsd, rnd-trunc.rb.v) 

Extended-precision Packed Decimal Multiplication 

CALL BAS$EXTEND_MULP (multiplicand.rp.dsd, multiplier.rp.dsd, 

product.mp.dsd, rnd-trunc.rb.v) 

Fetch Address of Element of Nonvirtual Array 

CALL ret-value.wl.v = BAS$FETCH_ADDR (array-dsc.rx.da, indexl.rl.v 
[, ... indexn.rl.v]) 

Fetch Value from Array by Descriptor 

CALL BAS$FETCH_BFA (array-dsc.rx.da, val-dsc.wx.dxl, indexl.rl.v 
[,index2.rl.v]) 

Fetch Descriptor from Array 

CALL ret-value.wl.v = BAS$FETCH_DESC (array-dsc.rx.da, indexl.rl.v 
[, ... indexn]) 

Fetch Byte Integer from Array 

in-val.wb.v = BAS$FET_FA_B_R8 (array-dsc.rb.da, indexl.rl.v 
[,index2.rl.v]) 

Fetch D_floating Value from Array 

in-val.wd.v = BAS$FET_FA_D_R8 (array-dsc.rd.da, indexl.rl.v 
[,index2.rl.v]) 

Fetch F_floating Value from Array 

in-val.wf.v = BAS$FET_FA_F_R8 (array-dsc.rf.da, indexl.rl.v 
[,index2.rl.v]) 

Fetch G_floating Value from Array 

in-val.wg.v = BAS$FET_FA_G_R8 (array-dsc.rg.da, indexl.rl.c 
[,index2.rl.v]) 

Fetch FI-floating Value from Array 

in-val.wh.v = BAS$FET_FA_F1_R8 (array-dsc.rh.da, indexl.rl.c 
[,index2.rl.v]) 

Fetch Longword Integer from Array 

in-val.wl.v = BAS$FET_FA_I_R8 (array-dsc.rl.da, indexl.rl.v 

[,index2.rl.v]) 
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BAS$FET_FA_W_R8 

JSB 

Fetch Word Integer from Array 

in-val.ww.v = BAS$FET_FA_W_R8 (array-dsc.rw.da, indexl.rl.v 
[,index2.rl.v]) 

BAS$FIELD_CLEAR 

Remove FIELD Variable 

CALL BAS$FIELD_CLEAR (fld-var.at.d) 

BAS$FI ELD-CLOSE 

Remove All FIELD Variables 

CALL BAS$ FI ELD-CLOSE (unit.rlu.v) 

BAS$FIELD_COPY 

Copy FIELD Variable 

CALL BAS$FIELD_COPY (stmt-type.rlu.v, out-var.wt.dxl, in-var.rt.dxl) 

BAS$FIELD_COP—R 

Copy FIELD Variable by Reference 

CALL BAS$FIELD_COP_R (stmt-type.rlu.v, out-var.wt.dxl, 
in-var-len.rl.v, in-var-adr.rt.r) 

BAS$FI ELD-OPEN 

Open File 

CALL BASS FI ELD-OPEN (unit.rlu.v) 

BAS$FI ELD-PURGE 

Purge FIELD Variables 

CALL BAS$FIELD_PURGE (decl.rl.v) 

BAS$FIELD_SET 

Execute FIELD Statement 

CALL BASSFIELD—SET (unit.rlu.v, decl.rl.v, in-varl-len.rl.v, 
in-varl-adr.rt.r [, ... ]) 

BAS$FIELD_VAR 

Declare FIELD Variable 

CALL BAS$FIELD_VAR (unit.rlu.v, offset.rl.v, in-var-len.rl.v, decl.rl.v, 
in-var-adr.rt.d, rec-buf.ra.v) 

BAS$FIND 

Locate Next Sequential Record 

CALL BASSFIND (unit.rlu.v [,lock-flags.rlu.v]) 

BAS$FIND_KEY 

Locate Record with Key 

CALL BAS$FIND_KEY (unit.rlu.v, key-no.rl.v, rel-opr.rl.v, key-str.rx.dy 
[,lock-flags.rlu.v]) 

BAS$FI ND_RECORD 

Locate Relative Record 

CALL BAS$FIND_RECORD (unit.rlu.v, rec-num.rlu.v [,lock-flags.rlu.v]) 

BAS$FIND_RFA 

Locate Relative Record with RFA 

CALL BAS$FIND_RFA (unit.rlu.v, rfa.rx.r [,lock-flags.rlu.v]) 

BAS$FORMAT_D 

Convert D_floating to Formatted String 

CALL BAS$FORMAT_D (out-str.wt.dxl, value.rd.r, format.rt.dxl) 

BAS$FORMAT_F 

Convert F_floating to Formatted String 

CALL BASSFORMAT—F (out-str.wt.dxl, value.rf.r, format.rt.dxl) 

BAS$FORMAT_G 

Convert G_floating to Formatted String 

CALL BASSFORMAT—G (out-str.wt.dxl, value.rg.r, format.rt.dxl) 

BAS$FORMAT_H 

Convert H-floating to Formatted String 

CALL BAS$FORMAT_H (out-str.wt.dxl, value.rh.r, format.rt.dxl) 
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BAS$FORMAT_P 

BAS$FORMAT_T 

BAS$FREE 

BASSFSP 

BASSGET 

BAS$GETRFA 

BAS$GET_KEY 

BAS$GET_RECORD 

BAS$GET_RFA 

BAS$INIT_C_GSB 

BAS$INIT_DEF_R8 

JSB 

BAS$INIT_DFS_R8 

JSB 

BAS$INIT_GOSUB 

BAS$INIT_IOL 

BAS$INIT_ONERR 

BAS$INIT_R8 

JSB 

BAS$INPUT 
BAS$IN PUT—LINE 
BAS$INSTR 


Convert Packed Decimal to Formatted String 

CALL BAS$FORMAT_P (out-str.wt.dxl, value.rp.dsd, format.rt.dxl) 
Convert String to Formatted String 

CALL BAS$FORMAT_T (out-str.wt.dxl, value.rt.dxl, format.rt.dxl) 

Unlock All Records on Logical Unit 
CALL BASSFREE (unit.rlu.v) 

Get File Attributes 

CALL BASSFSP (result.wb.dxl, unit.rlu.v) 

Read Next Record 

CALL BASSGET (unit.rlu.v [,lock-flags.rlu.v]) 

Get RFA of Last Record Accessed 
CALL BASSGETRFA (unit.rlu.v. rfa.wx.r) 

Read Record with Key 

CALL BAS$GET_KEY (unit.rlu.v, key-no.rl.v, rel-opr.rl.v, key-str.rx.dy 
[, lock-flags, rlu.v]) 

Read Relative Record 

CALL BASSGET—RECORD (unit.rlu.v, rec-num.rlu.v [,lock-flags.rlu.v]) 
Read Record by Its RFA 

CALL BAS$GET_RFA (unit.rlu.v, rfa.rx.r [,lock-flags.rlu.v]) 

Build Frame for Computed BASIC GOSUB 
CALL BASSINIT—C_GSB (table.rx.r, index.rl.v) 

Build Frame for BASIC DEF 
BAS$INIT_DEF_R8 (arg-list.rx.v, data-reloc.ra.v) 

Build Frame for BASIC DEF* 

BAS$INIT_DFS_R8 (arg-list.rx.v, data-reloc.ra.v) 

Build Frame for BASIC GOSUB 
CALL BAS$INIT_GOSUB (new-pc.ra.v) 

Build Frame for Immediate Mode 

CALL BASSINIT—IOL (new-pc.ra.v, root-fmp.ra.v) 

Build Frame for BASIC Condition Handler 

ret-value.wa.v = BAS$INIT_ONERR (old-fmp.ra.v, new-pc.ra.v) 

Build Frame for BASIC Procedure 

BAS$INIT_R8 (arg-list.rx.v, data-reloc.ra.v, code-reloc.ra.v) 

Prepare to Read Data Elements from Logical Unit 
CALL BASSINPUT (unit.rlu.v) 

Prepare to Read Line Including Terminator from Logical Unit 
CALL BAS$INPUT-LINE (unit.rlu.v) 

Return Relative Position of Substring 

find-pos.wlu.v = BASSINSTR (start-pos.rw.v, in-str.rt.dxl, sub-str.rt.dxl) 
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BAS$IN_B_R 

BAS$IN_D_R 

BAS$IN_F_R 

BAS$IN_G_R 

BAS$IN_H_R 

BAS$IN_I_R 

BAS$IN_MAT 

BAS$IN_P_DX 

BAS$IN_T_DX 

BAS$IN_W_R 

BAS$IO_END 

BASSKILL 

BAS$LEFT 

BAS$LINPUT 

BAS$MAT_ADD 

BAS$MAT_ASSIGN 

BAS$MAT_IDN 

BAS$MAT_INIT 

BAS$MAT_INPUT 

September 1982 


Input Byte Integer 

CALL BAS$IN_D_R (element.wb.r) 

Input D_floating Value 

CALL BAS$IN_D_R (element.wd.r) 

Input F_floating Value 

CALL BAS$IN_F_R (element.wf.r) 

Input G_floating Value 

CALL BAS$IN_G_R (element.wg.r) 

Input F1_floating Value 

CALL BAS$IN_H_R (element.wh.r) 

Input Longword Integer 

CALL BAS$IN_I_R (element.wl.r) 

Input Matrix 

CALL BAS$IN_MAT (array.wx.da) 

Input Packed Decimal Value 

CALL BAS$IN_P_DX (element-dsc.wp.dxl) 

Input Text by Descriptor 

CALL BAS$IN_T_DX (element.wt.dxl) 

Input Word Integer 

CALL BAS$IN_W_R (element.ww.r) 

Complete BASIC I/O Statement Processing 
CALL BAS$IO_END 

Delete Unopened File 

CALL BASSKILL (filename.rt.dxl) 

Perform BASIC Function, LEFTS 

CALL BASSLEFT (out-str.wt.dxl, in-str.rt.dxl, end-pos.rw.v) 

Prepare to Read Line Without Terminator from Logical Unit 
CALL BASSLINPUT (unit.rlu.v) 

Add Two Matrices 

CALL BAS$MAT_ADD (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

Assign One Matrix to Another Matrix 

CALL BAS$MAT_ASSIGN (src-mat.rx.da, dst-mat.wx.da) 

Initialize Matrix to Identity Matrix 
CALL BAS$MAT_IDN (dst-mat.wx.da) 

Initialize Each Element of Matrix to Constant 
CALL BAS$MAT_INIT (dst-mat.wx.da, constant.rl.v) 

Prepare to Read Array 

CALL BAS$MAT_INPUT (unit.rlu.v) 
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BAS$MAT_INV 

Invert Matrix 

CALL BAS$MAT_INV (src-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_LINPUT 

Prepare to Read Array of String Elements 

CALL BAS$MAT_LINPUT (unit.rlu.v) 

BAS$MAT_MUL 

Multiply Matrix by Another Matrix 

CALL BAS$MAT_MUL (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_NULL 

Initialize String Matrix to Null Strings 

CALL BAS$MAT_NULL (dst-mat.wx.da) 

BAS$MAT_PRI NT 

Prepare to Write Array 

CALL BAS$MAT_PRINT (unit.rlu.v) 

BAS$MAT_READ 

Prepare to Read Internal Data into Array 

CALL BAS$MAT_READ 

BAS$MAT_REDIM 

Redimension Matrix 

CALL BAS$MAT_REDIM (dst-mat.wx.da, rows.rl.v [,cols.rl.v]) 

BAS$MAT_SCA_MUL 

Multiply Each Element of Matrix by Scalar Quantity 

CALL BAS$MAT_SCA_MUL (scalar.rz.r, scalar-dtype.rlu.v, 
src-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_SUB 

Subtract Matrix from Another Matrix 

CALL BAS$MAT_SUB (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_TRN 

Transpose One Matrix into Another Matrix 

CALL BAS$MAT_TRN (src-mat.rx.da, dst-mat.wx.da) 

BAS$MOVE_ARRAV 

Move Array to or from Buffer 

CALL BAS$MOVE_ARRAY (src.mq.r, dest.mq.r [,len.rl.v]) 

BASSNOECHO 

Disable Echoing on Logical Unit 

CALL BAS$NOECHO (unit.rlu.v) 

BASSNUM 

Return Number of Elements or Rows Read 

CALL BASSNUM 

BAS$NUM1 _D 

Convert D_floating to Numeric String 

CALL BAS$NUM1_D (out-str.wt.dxl,value.rd.v) 

BAS$NUM1 _F 

Convert F_floating to Numeric String 

CALL BAS$NUM1_F (out-str.wt.dxl, value.rf.v) 

BAS$NUM1 _G 

Convert G_floating to Numeric String 

CALL BAS$NUM1_G (out-str.wt.dxl, value.rg.v) 

BAS$NUM1_H 

Convert H_floating to Numeric String 

CALL BAS$NUM1_H (out-str.wt.dxl, value.rh.v) 

BAS$NUM1_L 

Convert Longword Integer to Numeric String 

CALL BAS$NUM1_L (out-str.wt.dxl, value.rl.v) 

BAS$NUM1 _P 

Convert Packed Decimal to Numeric String 

CALL BAS$NUM1_P (out-str.wt.dxl, value.rp.dsd) 
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BAS$NUM2 

Return Number of Elements Input in Last Row 

CALL BAS$NUM2 

BAS$NUM_D 

Convert D_floating to Numeric String 

CALL BAS$NUM_D (out-str.wt.dxl, value.rd.v) 

BAS$NUM_F 

Convert F_floating to Numeric String 

CALL BAS$NUM_F (out-str.wt.dxl, value.rf.v) 

BAS$NUM_G 

Convert G_floating to Numeric String 

CALL BAS$NUM_G (out-str.wt.dxl, value.rg.v) 

BAS$NUM_H 

Convert H_floating to Numeric String 

CALL BAS$NUM_H (out-str.wt.dxl, value.rh.v) 

BAS$NUM_L 

Convert Longword Integer to Numeric String 

CALL BAS$NUM_L (out-str.wt.dxl, value.rl.v) 

BAS$NUM_P 

Convert Packed Decimal to Numeric String 

CALL BAS$NUM_P (out-str.wt.dxl, value.rp.dsd) 

BAS$OPEN 

OPEN File 

CALL BAS$OPEN (open-arg-blk.mz.r [,key-info-blk.rl.ra]) 

BAS$OUT_D_V_B 

Output D_floating with No Format Character 

CALL BAS$OUT_D_V_B (element.rd.v) 

BAS$OUT_D_V_C 

Output D_floating with Comma 

CALL BAS$OUT_D_V_C (element.rd.v) 

BAS$OUT_D_V_S 

Output D_floating with Semicolon 

CALL BAS$OUT_D_V_S (element.rd.v) 

BAS$OUT_F_V_B 

Output F_floating with No Format Character 

CALL BAS$OUT_F_V_B (element.rf.v) 

BAS$OUT_F_V_C 

Output F_floating with Comma 

CALL BAS$OUT_F_V_C (element.rf.v) 

BAS$OUT_F_V_S 

Output F_floating with Semicolon 

CALL BAS$OUT_F_V_S (element.rf.v) 

BAS$OUT_G_V_B 

Output G_floating with No Format Character 

CALL BAS$OUT_G_V_B (element.rg.v) 

BAS$OUT_G_V_C 

Output G_floating with Comma 

CALL BAS$OUT_G_V_C (element.rg.v) 

BAS$OUT_G_V_S 

Output G_floating with Semicolon 

CALL BAS$OUT_G_V_S (element.rg.v) 

BAS$OUT_H_V_B 

Output H_floating with No Format Character 

CALL BAS$OUT_H_V_B (element.rh.v) 

BAS$OUT_H_V_C 

Output H_floating with Comma 

CALL BAS$OUT_H_V_C (element.rh.v) 
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BAS$OUT_H_V_S 

Output H_floating with Semicolon 

CALL BAS$OUT_H_V_S (element.rh.v) 

BAS$OUT_!_V_B 

Output Longword Integer with No Format Character 

CALL BAS$OUT_l_V_B (element.rl.v) 

BAS$OUT_l_V_C 

Output Longword Integer with Comma 

CALL BAS$OUT_l_V_C (element.rl.v) 

BAS$OUT_l_V_S 

Output Longword Integer with Semicolon 

CALL BAS$OUT_l_V_S (element.rl.v) 

BAS$OUT_MAT_B 

Output Matrix with No Format Character 

CALL BAS$OUT_MAT_B (array.rx.da [,sub1.rlu.v [,sub2.rlu.v]]) 

BAS$OUT_MAT_C 

Output Matrix with Comma 

CALL BAS$OUT_MAT_C (array.rx.da [,sub1.rlu.v [,sub2.rlu.v]]) 

BAS$OUT_MAT_S 

Output Matrix with Semicolon 

CALL BAS$OUT_MAT_S (array.rx.da [,sub1.rlu.v [,sub2.rlu.v]]) 

BAS$OUT_P_DX_B 

Output Packed Decimal with No Format Character 

CALL BAS$OUT_P_DX_B (element-dsc.rp.dxl) 

BAS$OUT_P_DX_C 

Output Packed Decimal with Comma 

CALL BAS$OUT_P_DX_C (element-dsc.rp.dxl) 

BAS$OUT_P_DX_S 

Output Packed Decimal with Semicolon 

CALL BAS$OUT_P_DX_S (element-dsc.rp.dxl) 

BAS$OUT_T_DX_B 

Output Text with No Format Character 

CALL BAS$OUT_T_DX_B (element.rt.dxl) 

BAS$OUT_T_DX_C 

Output Text with Comma 

CALL BAS$OUT_T_DX_C (element.rt.dxl) 

BAS$OUT_T_DX_S 

Output Text with Semicolon 

CALL BAS$OUT_T_DX_S (element.rt.dxl) 

BAS$PLACE 

Round or Truncate Numeric String 

CALL BAS$PLACE (out-str.wt.dxl, in-strl .rt.dxl, precision.rl.v) 

BAS$POS 

Return Relative Position of Substring 

find-pos.wlu.v = BAS$POS (in-str.rt.dxl, sub-str.rt.dxl, start-pos.rw.v) 

BAS$POWDD 

Raise D_floating Base to D_floating Power 
value.wd.v = BAS$POWDD (base.rd.v, exp.rd.v) 

BAS$POWDJ 

Raise D_floating Base to Longword Integer Power 
value.wd.v = BAS$POWDJ (base.rd.v, exp.rl.v) 

BAS$POWDR 

Raise D_floating Base to F_floating Power 
value.wd.v = BAS$POWDR (base.rd.v, exp.rf.v) 

BASSPOWGG 

Raise G_floating Base to G_floating Power 
value.wg.v = BAS$POWGG (base.rg.v, exp.rg.v) 
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BASSPOWGJ 

Raise G_floating Base to Longword Integer Power 
value.wg.v = BASSPOWGJ (base.rg.v, exp.rl.v) 

BASSPOWHH 

Raise H_floating Base to H_floating Power 
value.wh.v = BASSPOWHH (base.rh.v, exp.rh.v) 

BASSPOWH) 

Raise H_floating Base to Longword Integer Power 
value.wh.v = BASSPOWHJ (base.rh.v, exp.rl.v) 

BASSPOWII 

Raise Word Integer Base to Word Integer Power 
value.ww.v = BASSPOWII (base.rw.v, exp.rw.v) 

BASSPOWJJ 

Raise Longword Integer Base to Longword Integer Power 
value.wl.v = BASSPOWJJ (base.rl.v, exp.rl.v) 

BASSPOWRD 

Raise F_floating Base to D_floating Power 
value.wd.v = BASSPOWRD (base.rf.v, exp.rd.v) 

BASSPOWRJ 

Raise F_floating Base to Longword Integer Power 
value.wf.v = BASSPOWRJ (base.rf.v, exp.rl.v) 

BASSPOWRR 

Raise F_floating Base to F_floating Power 
value.wf.v = BASSPOWRR (base.rf.v, exp.rf.v) 

BAS$PRINT 

Prepare to PRINT Data Elements 

CALL BASSPRINT (unit.rlu.v) 

BAS$PRINT_USING 

Prepare to PRINT Formatted Output 

CALL BASSPRINT_USING (unit.rlu.v, format.rt.dxl) 

BASSPROD 

Multiply Two Numeric Strings 

CALL BASSPROD (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dx1, 
precision.rl.v) 

BASSPUT 

Write Next Record to Logical Unit 

CALL BASSPUT (unit.rlu.v) 

BAS$PUT_COUNT 

Write Next Record to Logical Unit with Count 

CALL BAS$PUT_COUNT (unit.rlu.v, count.rlu.v) 

BAS$PUT_REC_CNT 

Write Relative Record to Logical Unit with Count 

CALL BAS$PUT_REC_CNT (unit.rlu.v, rec-num.rlu.v, count.rlu.v) 

BAS$PUT_RECORD 

Write Relative Record to Logical Unit 

CALL BAS$PUT_RECORD (unit.rlu.v, rec-num.rlu.v) 

BASSQUO 

Divide Two Numeric Strings 

CALL BASSQUO (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dxl, 
precision.rl.v) 

BASSRAD 

Perform BASIC Function, RADS 

CALL BASSRAD (out-str.wt.dxl, rad50.rw.v) 

BAS$RANDOMIZE 

Initialize Random Number Seed 

CALL BASSRANDOMIZE ( ) 
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BAS$RCTRLC 

BAS$RCTRLO 

BAS$READ 

BAS$REMAP_ARRAY 

BAS$RESTART_IO 

BASSRESTORE 

BAS$RESTORE_DAT 

BAS$RESTORE_KEY 

BAS$RESUME 

BAS$RESUME_Z 

BAS$RIGHT 

BAS$RND_F_R1 

JSB 

BAS$RSET 

BAS$RSET_R 

BAS$RT_DIM 

BAS$RUN_INIT 

BAS$SCALE_D_R1 

BASSSCRATCH 

BAS$SEG 


Disable CTRL/C Traps 
CALL BAS$RCTRLC 

Cancel CTRL/O 

CALL BAS$RCTRLO (unit.rlu.v) 

Prepare to Read Internal Data 
CALL BAS$READ 

Remap an Array 

CALL BAS$REMAP_ARRAY (buffer.rx.ds, array.mx.dx, [length.rl.v]) 

Restart I/O Statement 
CALL BAS$RESTART_IO 

Rewind File on Logical Unit 
CALL BASSRESTORE (unit.rlu.v) 

Rewind Internal Data File 
CALL BAS$RESTORE_DAT 

Rewind File on Logical Unit with Key 

CALL BAS$RESTORE-KEY (unit.rlu.v, key-no.rlu.v) 

Return from User Condition Handler 
CALL BASSRESUME (new-pc.ra.v) 

Return from User Condition Handler with Zero in RO 
CALL BAS$RESUME_Z (old-pc.ra.v) 

Perform BASIC Function, RIGHTS 

CALL BAS$RIGHT (out-str.wt.dxl, in-str.rt.dx 1, start-pos.rw.v) 

Random Number Generator 
result.wf.v = BAS$RND_F_R1 ( ) 

Copy String, Right justified, by Descriptor 
CALL BAS$RSET (out-str.wt.dxl, in-str.rt.dxl) 

Copy String, Right Justified, by Reference 

CALL BAS$RSET_R (out-str.wt.dxl, in-str-len.rlu.v, in-str-adr.rlu.v) 
Redimension an Array at Run Time 

CALL BAS$RT_DIM (array.mx.da, boundl.rl.v [,bound2.rl.v, 

... bound32.rl.v]) 

Initialize User Environment 
CALL BAS$RUN_INIT 

Scale D_floating Value 

result.wd.v = BAS$SCALE_D_R1 (value.rd.v) 

Truncate File on Logical Unit at Current Record 
CALL BASSSCRATCH (unit.rlu.v) 

Perform BASIC Function, SEG$ 

CALL BASSSEG (out-str.wt.dxl, in-str.rt.dxl, start-pos.rw.v, 
end-pos.rw.v) 
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BAS$SLEEP 

BAS$STATUS 

BAS$STORE_BFA 

BAS$STORE_BFA_OFF 

BAS$STO_FA_B_R8 

JSB 

BAS$STO_FA_D_R8 

JSB 

BAS$STO_FA_F_R8 

JSB 

BAS$STO_FA_G_R8 

JSB 

BAS$STO_FA_H_R8 

JSB 

BAS$STO_FA_l_R8 

JSB 

BAS$STO_FA_RDX 

BAS$STO_FA_W_R8 

JSB 

BAS$STRING 

BAS$STR_D 

BAS$STR_F 

BAS$STR_G 


Suspend Program Execution 
CALL BAS$SLEEP (seconds.rl.v) 

Return Status of Last Logical Unit Opened 
ret-status.wlc.v = BASSSTATUS 

Stores Value in Array by Descriptor 

CALL BAS$STORE_BFA (val-dsc.rx.d, array-dsc.wx.da, indexl.rl.v 
[,index2.rl.v]) 

Stores Value in Array Using an Offset 

CALL BAS$STORE_BFA_OFF (val.dsc.rx.d, array-dsc.wx.da, offset.rlu.v, 
indexl.rl.v [,index2.rl.v]) 

Store Byte Integer in Array 

BAS$STO_FA_B_R8 (out-val.rb.v, array-dsc.wb.da, indexl.rl.v 
[,index2.rl.v]) 

Store D_floating Value in Array 

BAS$STO_FA_D_R8 (out-val.rd.v, array-dsc.wd.da, indexl.rl.v 
[,index2.rl.v]) 

Store F_floating Value in Array 

BAS$STO_FA_F_R8 (out-val.rf.v, array-dsc.wf.da, indexl.rl.v 
[,index2.rl.v]) 

Store G_floating Value in Array 

BAS$STO_FA_G_R8 (out-val.rg.v, array-dsc.wg.da, indexl.rl.v 
[,index2.rl.v]) 

Store H_floating Value in Array 

BAS$STO_FA_H_R8 (out-val.rh.v, array-dsc.wh.da, indexl.rl.v 
[,index2.rl.v]) 

Store Longword Integer in Array 

BAS$STO_FA_l_R8 (out-val.rl.v, array-dsc.wl.da, indexl.rl.v 

[,index2.rl.v]) 

Store String Element in Array by Reference 

CALL BAS$STO_FA_RDX (str-len.rl.v, str-adr.rt.r, array-dsc.rx.da, 
indexl.rl.v [,index2.rl.v]) 

Store Word Integer in Array 

BAS$STO_FA_W_R8 (out-val.rw.v, array-dsc.ww.da, indexl.rl.v 
[,index2.rw.v]) 

Generate String of Duplicate Characters 

CALL BAS$STRING (out-str.wt.dxl, len.rw.v, char.rb.v) 

Convert D_floating to Numeric String 
CALL BAS$STR_D (out-str.wt.dxl, value.rd.v) 

Convert F_floating to Numeric String 
CALL BAS$STR_F (out-str.wt.dxl, value.rf.v) 

Convert G_floating to Numeric String 
CALL BAS$STR_G (out-str.wt.dxl, value.rg.v) 
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BAS$STR_H 

Convert H_floating to Numeric String 

CALL BAS$STR_H (out-str.wt.dxl, value.rh.v) 

BAS$STR—L 

Convert Longword Integer to Numeric String 

CALL BAS$STR_L (out-str.wt.dxl, value.rl.v) 

BAS$STR_P 

Convert Packed Decimal to Numeric String 

CALL BAS$STR$_P (out-str.wt.dxl, value.rp.dsd) 

BAS$SUM 

Add Two Numeric Strings 

CALL BAS$SUM (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dx1 

BAS$SYS 

Execute RSTS/E-compatible SYS ( ) function 

CALL BAS$SYS (out-str.wz.dxl, in-str.rz.dxl) 

BAS$TAB 

Generate String of Spaces 

CALL BAS$TAB (out-str.wt.dxl, position.rl.v) 

BAS$TIME_F 

Perform BASIC Function, TIME 
ret-value.wf.v = BAS$TIME_F (type.rl.v) 

BAS$TIME_T 

Perform BASIC Function, TIMES 

CALL BAS$TIME_T (time-str.wt.dxl, time-num.rl.v) 

BAS$TRM 

Delete Trailing Tabs and Spaces 

CALL BASSTRM (out-str.wt.dxl, in-str.rt.dxl) 

BASSUNLOCK 

Unlock Current Record on Logical Unit 

CALL BASSUNLOCK (unit.rlu.v) 

BAS$UPDATE 

Update Current Record on Logical Unit 

CALL BASSUPDATE (unit.rlu.v) 

BAS$UPDATE_COUN 

Update Current Record on Logical Unit with Count 

CALL BAS$UPDATE_COUN (unit.rlu.v) 

BAS$VAI_D 

Convert Numeric String to D_floating Value 

value.wd.v = BASSVAI_D (in-str.rt.dxl [,sca-fac.rb.v]) 

BAS$VAI_F 

Convert Numeric String to F_floating Value 

value.wf.v = BASSVAI_F (in-str.rt.dxl [,sca-fac.rb.v]) 

BAS$VAI_G 

Convert Numeric String to G—floating Value 

value.wg.v = BASSVAI_G (in-str.rt.dxl [,sca-fac.rb.v]) 

BASSVAI_H 

Convert Numeric String to H_floating Value 

value.wh.v = BASSVAI_ \-\ (in-str.rt.dxl [,sca-fac.rb.v]) 

BAS$VAI_L 

Convert Numeric String to Longword Integer 

value.wl.v = BASSVAI_L (in-str.rt.dxl [,sca-fac.rb.v]) 

BAS$VAI_P 

Convert Numeric String to Packed Decimal 

value.wp.dsd = BASSVAI_P (in-str.rt.dxl [,sca-fac.rb.v]) 

BAS$WAIT 

Perform BASIC Statement, WAIT 

CALL BASSWAIT (seconds.rl.v) 
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BAS$XLATE 


Perform BASIC Function, XLATE 

CALL BAS$XLATE (out-str.wt.dxl, in-str.rt.dxl, table.rt.dxl) 


COBOL-Specific Procedures 

COB$ACCEPT 


Read Record from Logical Unit 

ret-vale.wl.v = COB$ACCEPT (inp-array.rbu.va, string.wt.ds) 

COB$ACC_DATE 


Return Current Date 

CALL COB$ACC_DATE (dst.wt.ds) 

COB$ACC_DAY 


Return Current Day as Number 

CALL COB$ACC—DATE (dst.wt.ds) 

COB$ACC_DAYWEEK 

Return Day of Week as ASCII Integer 

COB$ACC_DAYWEEK (dst.wt.ds) 

COB$ACC_TIME 


Return Time of Day as ASCII String 

CALL COB$ACC—TIME (dst.wt.ds) 

COBSADDI 


Add COBOL Intermediate Temporary 

ret-status.wlc.v = COB$ADDI (addend2.rx.dx1, addendl.rx.dxl, 
sum.wx.dxl) 

COBSCALL 


Perform CALL Statement 
ret-value.wa.v = COB$CALL (desc.rt.ds) 

COBSCANCEL 


Perform CANCEL Statement 

CALL COBSCANCEL (desc.rt.ds) 

COBSCMPI 


Compare COBOL Intermediate Temporary 

value.wl.v = COBSCMPI (src. 1 .rx.dxl, src2.rx.dx1) 

COBSCNVOUT 


Convert D_floating, G_floating, or H_floating to FORTRAN E Format 
ret-status.wlc.v = COB$CNVOUT (value.rx.r, out-str.wt.ds, 
digits-in-fract.rlu.v) 

COB$CVTDI_R7 

JSB 

Convert D_floating to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTDI_R7 (src.rd.r, dst.wx.r) 

COB$CVTDP_R9 

JSB 

Convert D_floating to Packed Decimal 

ret-status.wlc.v = COB$CVTDP_R9 (scale.rl.v, src.rd.r, dstlen.rl.v, 
dst.wp.r) 

COB$CVTDQ_R8 

JSB 

Convert D_floating to Quadword 

ret-status.wlc.v = COB$CVTDQ_R8 (scale.rl.v, src.rd.r, dst.wq.r) 

COB$CVTFI_R7 

JSB 

Convert F_floating to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTFI_R7 (src.rf.r, dst.wx.r) 

COB$CVTFP_R9 

JSB 

Convert F_floating to Packed Decimal 

ret-status.wlc.v = COB$CVTFP_R9 (scale.rl.v, src.rf.r, dstlen.rl.v, 
dst.wp.r) 

COB$CVTFQ_R8 

JSB 

Convert F_floating to Quadword 

ret-status.wlc.v = COB$CVTFQ_R8 (scale.rl.v, src.rf.r, dst.wq.r) 
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OTS$CVT_T_H 

Convert Text to H_floating 

ret-status.wlc.v = OTS$CVT_T_H (inp-str.rt.dxl, value.wh.r 
[,digits-in-fract.rlu.v [,scale-factor.rl.v [,flags.rlu.v [,ext-bits.ww.r]]]]) 

OTSSDIVC 

Divide F_complex Numbers 

complex-quotient.wfc.v = OTS$DIVC (dividend.rfc.v, divisor.rfc.v) 

OTS$DIVCD_R3 

Divide D_complex Numbers 

complex-quotient.wdc.v = OTS$DIVCD_R3 (dividend.rdc.v, 
divisor.rdc.v) 

OTS$DIVCG_R3 

Divide G_complex Numbers 

complex-quotient.wgc.v = OTS$DIVCG_R3 (dividend.rgc.v, 
divisor, rgc.v) 

OTS$MULCD_R3 

Multiply D_complex Numbers 

product.wdc.v = OTS$MULCD_R3 (multiplier.rdc.v, 
multiplicand, rdc.v) 

OTS$MULCG_R3 

Multiply G_complex Numbers 

product.wgc.v = OTS$MULCG_R3 (multiplier.rgc.v, 
multiplicand, rgc.v) 

OTS$POWCC 

Raise F_complex Base to F_complex Power 
result.wfc.v = OTS$POWCC (base.rfc.v, exponent.rfc.v) 

OTS$POWCDCD_R3 

Raise D_complex Base to D_complex Power 

result.wdc.v = OTS$POWCDCD_R3 (base.rdc.v, exponent.rdc.v) 

OTS$POWCDJ_R3 

Raise D_complex Base to Longword Power 

result.wdc.v = OTS$POWCDJ_R3 (base.rdc.v, exponent.rl.v) 

OTS$POWCGCG_R3 

Raise G_complex Base to G_complex Power 

result.wgc.v = OTS$POWCGCG_R3 (base.rgc.v, exponent.rgc.v) 

OTS$POWCG J_R3 

Raise G_complex Base to Longword Power 

result.wgc.v = OTS$POWCGJ_R3 (base.rgc.v, exponent.rl.v) 

OTSSPOWCJ 

Raise F_complex Base to Longword Power 
result.wfc.v = OTS$POWCJ (base.rfc.v, exponent.rl.v) 

OTS$POWDD 

Raise D_floating Base to D_floating Power 

result.wd.v = OTS$POWDD (base.rd.v, exponent.rd.v) 

OTS$POWDJ 

Raise D_floating Base to Longword Power 

result.wd.v = OTS$POWDJ (base.rd.v, exponent.rl.v) 

OTSSPOWDR 

Raise D_floating Base to F-floating Power 

result.wd.v = OTSSPOWDR (base.rd.v, exponent.rf.v) 

OTS$POWGG 

Raise G_floating Base to G_floating Power 
result.wg.v = OTS$POWGG (base.rg.v, exponent.rg.v) 

OTS$POWGJ 

Raise G_floating Base to Longword Power 
result.wg.v = OTS$POWGJ (base.rg.v, exponent.rl.v) 
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OTS$POWHH_R3 Raise H_floating Base to H_floating Power 

result.wh.v = OTS$POWHH_R3 (base.rh.v, exponent.rh.v) 

OTS$POWHJ_R3 Raise H_floating Base to Longword Power 

result.wh.v = OTS$POWHJ_R3 (base.rh.v, exponent.rl.v) 


OTS$POWII 

OTSSPOWJJ 

OTSSPOWRD 

OTS$POWRJ 

OTS$POWRR 


Raise Word Base to Word Power 

result.ww.v = OTS$POWII (base.rw.v, exponent.rw.v) 

Raise Longword Base to Longword Power 
result.wl.v = OTSSPOWJJ (base.rl.v, exponent.rl.v) 

Raise F_floating Base to D_floating Power 

result.wd.v = OTSSPOWRD (base.rf.v, exponent.rd.v) 

Raise F_floating Base to Longword Power 

result.wf.v = OTSSPOWRJ (base.rf.v, exponent.rl.v) 

Raise F_floating Base to F_floating Power 

result.wf.v = OTSSPOWRR (base.rf.v, exponent.rf.v) 


OTS$SCOPY_DXDX Copy Any Class String Passed by Descriptor to Any Class String 

ret-status.wlc.v = OTS$SCOPY_DXDX (src-str.rt.dx, dst-str.wt.dx) 
JSB unmoved-src.wlu.v = OTS$SCOPY_DXDX6 (src-str.rt.dx, 
dst-str.wt.dx) 


OTS$SCOPY_R_DX Copy Any Class String Passed by Reference to Any Class String 
ret-status.wlc.v = OTS$SCOPY_R_DX (src-len.rwu.v, src.rt.r, 
dst-str.wt.dx) 

JSB unmoved-src.wlu.v = OTS$SCOPY_R_DX6 (src-len.rwu.v, src.rt.v, 
dst-str.wt.dx) 


OTS$SFREE1_DD 


JSB 


Deallocate One Dynamic String 

ret-status.wlc.v = OTS$SFREE1_DD (dyn-dsc.mqu.r) 

ret-status.wlc.v = OTS$SFREE1_DD6 (dyn-dsc.mqu.v) 


OTS$SFREEN_DD 


JSB 


Deallocate n Dynamic Strings 

ret-status.wlc.v = OTS$SFREEN_DD (dsc-num.rlu.v, first-dsc.mqu.r) 
ret-status.wlc.v = OTS$SFREEN_DD6 (dsc-num.rlu.v, first-dsc.mqu.v) 


OTS$SGET1_DD 


JSB 


Allocate One Dynamic String 

ret-status.wlc.v = OTS$SGET1_DD (len.rwu.v, dyn-dsc.mqu.r) 
ret-status.wlc.v = OTS$SGET1_DD_R6 (len.rwu.v, dyn-dsc.mqu.v) 


PASCAL-Specific Procedures 


PAS$ABS_L Compute Absolute Value Without Overflow Checking 

result.wl.v = PAS$ABS_L (value.rl.r) 

PAS$BIN Convert Value to Binary-Format Text 

CALL PAS$BIN (result.wt.r, total-width.rw.v, nbits.rl.v, value.rz.r 
[, min-digits.rl.v]) 
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PAS$CARD2 

Return Number of Components in Set 

result.wl.v = PAS$CARD2 (set-size.rl.v, set.rz.r) 

PASSCLOCK2 

Return Process CPU Time in Milliseconds 
result.wl.v = PAS$CLOCK2 

PASSCLOSE2 

Close a File 

CALL PAS$CLOSE2 (file-var.mr.r [error-parameter.rz.v, error.j.r] 
[, optional-parameter ...]) 

PAS$CLOSE_LOCAI_R3 

Close Local Files (Procedure Epilog Routine) 

JSB PAS$CLOSE_LOCAL_R3 

PAS$CONVERT_l_BU 

Convert a Signed Longword to an Unsigned Byte 
result.wbu.v = PAS$CONVERT_L_BU (value.rl.r) 

PAS$CONVERT_LU_F 

Convert an Unsigned Longword to F_floating 
result.wf.v = PAS$CONVERT_LU_F (value.rlu.r) 

PAS$CONVERT_F_F 

Convert an F_floating Value to F_floating 
result.wf.v = PAS$CONVERT_F_F (value.rf.r) 

PAS$CONVERT_H_F 

Convert an H_floating Value to F_floating 
result.wf.v = PAS$CONVERT_H_F (value.rh.r) 

PAS$CONVERT_LU_D 

Convert an Unsigned Longword to D_floating 
result.wd.v = PAS$CONVERT_LU_D (value.rlu.r) 

PAS$CONVERT_D_D 

Convert a D_floating Value to D_floating 
result.wd.v = PAS$CONVERT_D_D (value.rd.r) 

PAS$CONVERT_H_D 

Convert an H_floating Value to D_floating 
result.wd.v = PAS$CONVERT_H_D (value.rh.r) 

PAS$CONVERT_LU_G 

Convert an Unsigned Longword to G_floating 
result.wg.v = PAS$CONVERT_LU_G (value.rlu.r) 

PAS$CONVERT_G_G 

Convert a G_floating Value to G_floating 
result.wg.v = PAS$CONVERT_G_G (value.rg.r) 

PAS$CONVERT_H_G 

Convert an H_floating Value to G_floating 
result.wg.v = PAS$CONVERT_H_G (value.rh.r) 

PAS$CONVERT_l_H 

Convert a Longword to H_floating 

CALL PAS$CONVERT_l_H (result.wh.r, value.rl.r) 

PAS$CONVERT_LU_H 

Convert an Unsigned Longword to H_floating 

CALL PAS$CONVERT_LU_H (result.wh.r, value.rlu.r) 

PAS$CONVERT_F_H 

Convert an F_floating Value to H_floating 

CALL PAS$CONVERT_F_H (result.wh.r, value.rf.r) 

PAS$CONVERT_D_H 

Convert a D_floating Value to H_floating 

CALL PAS$CONVERT_D_H (result.wh.r, value.rd.r) 

PAS$CONVERT_G_H 

Convert a G_floating Value to H_floating 

CALL PAS$CONVERT_G_H (result.wh.r, value.rg.r) 
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PAS$CONVERT_H_H 


Convert an H_floating Value to H_floating 
CALL PAS$CONVERT_H_H (result.wh.r, value.rh.r) 


PAS$CONVERT_BU_L Convert an Unsigned Byte to a Signed Longword 
result.wl.v = PAS$CONVERT_BU_L (value.rbu.r) 

PAS$CONVERT_WU_L Convert an Unsigned Word to a Signed Longword 
result.wl.v = PAS$CONVERT_WU_L (value.rwu.r) 

PAS$CONVERT_l_L Convert a Signed Longword to a Signed Longword 

result.wl.v = PAS$CONVERT_l_L (value.rl.r) 

PAS$CONVERT_LU_L Convert an Unsigned Longword to a Signed Longword 
result.wl.v = PAS$CONVERT_LU_L (value.rlu.r) 


PAS$CONVERT_BOOI_L 

Convert a Boolean Value to a Signed Longword 
result.wl.v = PAS$CONVERT_BOOI_L (value.rv.r) 

PAS$CVT_F_T Convert an F_floating Value to Text 

status.wlc.v = PAS$CVT_F_T (value.rf.r, 

result-str.wt.r, actual-width.ml.r, max-width.rl.v [,frac-digits.rl.v]) 


PAS$CVT_D_T 

PAS$CVT_G_T 

PAS$CVT_H_T 

PAS$ DATE 

PASSDELETE 

PAS$DISPOSE2 

PAS$EOF2 

PAS$EOLN2 

PAS$EXPO_F 

PAS$EXPO_D 

PAS$EXPO_G 


Convert a D_floating Value to Text 

status.wlc.v = PAS$CVT_D_T (value.rd.r, result-str.wt.r, 
actual-width.ml.r, max-width.rl.v [,frac-digits.rl.v]) 

Convert a G_floating Value to Text 

status.wlc.v = PAS$CVT_G_T (value.rg.r, result-str.wt.r, 
actual-width.ml.r, max-width.rl.v [,frac-digits.rl.v]) 

Convert an H_floating Value to Text 

status.wlc.v = PAS$CVT_H_T (value.rh.r, result-str.wt.r, 

actual-width.ml.r, max-width.rl.v [,frac-digits.rl.v]) 

Return Date in Dd-mmm-yyyy Format 
CALL PASSDATE (date-string.wt.r) 

Delete Current Record 

CALL PASSDELETE (file-var.mr.r [, error.j.r]) 

Deallocate a Variable 

CALL PASSDISPOSE2 (pointer.ra.v) 

Inquire If End-of-File 

result.wv.v = PASSEOF2 (file-var.mr.r) 

Inquire If End-of-Line (PAS$EOLN2) 
result.wv.v = PASSEOLN2 (file-var.mr.r) 

Extract Unbiased Binary Exponent of F_floating Value 
result.wl.v = PAS$EXPO_F (value.rf.r) 

Extract Unbiased Binary Exponent of D_floating Value 
result.wl.v = PAS$EXPO_D (value.rd.r) 

Extract Unbiased Binary Exponent of G_floating Value 
result.wl.v = PAS$EXPO_G (value.rg.r) 
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PAS$EXPO_H 

Extract Unbiased Binary Exponent of H_floating Value 
result.wl.v = PAS$EXPO_H (value.rh.r) 

PAS$FAB 

Return Address of RMS File Access Block 
fab.wa.v = PAS$FAB (file-var.rr.r) 

PAS$FIND2 

Position to Component and GET 

CALL PAS$FIND2 (file-var.mr.r, position.rl.r [, error.j.r]) 

PASSFINDK 

Position to Component by Key and GET 

CALL PAS$FINDK (file-var.mr.r, key-number.rl.v, 
key-value.rx.ds, match-type.rbu.v [,error.j.r]) 

PAS$GET 

Generic File GET 

CALL PAS$GET (file-var.mr.r [, error.j.r]) 

PAS$GET_UNLOCK 

GET for READ from Nontext Files 

CALL PAS$GET_UNLOCK (file-var.mr.r [, error.j.r]) 

PAS$GOTO 

Perform Nonlocal GOTO 

CALL PAS$GOTO (dest-frame.r.v, dest-pc.r.v) 

PASSHALT 

Exit Image 

CALL PASSHALT 

PAS$HANDLER 

PASCAL-Specific Error Handler 

CALL PAS$HANDLER (sigargs.mlc.ra, mech.ml.ra) 

PAS$HEX 

Convert Value to Hexadecimal-Format Text 

CALL PAS$HEX (result.wt.r, total-width.rw.v, nbits.rl.v, value.rz.r 
[, rnin-digits.rl.v]) 

PASSLINEUMIT2 

Set New Line Limit 

CALL PAS$LINELIMIT2 (file-var.mr.r, line-limit.rl.r [, error.j.r]) 

PASSLOCATE 

Position to Component and Enter Generation Mode 

CALL PASSLOCATE (file-var.mr.r, position.rl.r [, error.j.r]) 

PAS$LOOK_AHEAD 

Attempt to Make Buffer Valid 

CALL PAS$LOOK_AHEAD (file-var.mr.r) 

PAS$MARK2 

Allocate a New Variable and Mark Place on Heap 
pointer.wa.v = PAS$MARK2 (size.rlu.v) 

PAS$NEW2 

Allocate a New Variable 

pointer.wa.v = PASSNEW2 (size.rlu.v) 

PASSOCT 

Convert Value to Octal-Format Text 

CALL PASSOCT (result.wt.r, total-width.rw.v, nbits.rl.v, value.rz.r 
[, rnin-digits.rl.v]) 

PASSODD 

Return True If Value Odd 

result.wv.v = PASSODD (value.rl.r) 

PAS$OPEN2 

Open a File 

CALL PASSOPEN2 (file-var.mz.r [, error-parameter.rz.v, error.j.r] 

[, optional-parameter ...]) 
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PAS$PAGE2 Write a Page Eject 

CALL PAS$PAGE2 (file-var.mr.r [, error.j.r]) 

PAS$PUT Generic File PUT (PAS$PUT) 

CALL PAS$PUT (file-var.mr.r [, error.j.r]) 

PAS$RAB Return Address of RMS Record Access Block 

rab.wa.v = PAS$RAB (file-var.rr.r) 

PAS$READ_BOOLEAN Read a Boolean Value from a Text File 

result.wv.v = PAS$READ_BOOLEAN (file-var.mr.r [, error.j.r]) 

PAS$READ_CHAR Read a Single Character from a Text File 

result.wc.v = PAS$READ_CHAR (file-var.mr.r [, error.j.r]) 


PAS$READ_ENUMERATED 

Read an Enumerated Type Value from a Text File 
result.wlu.v = PAS$READ_ENUMERATED (file-var.mr.r, 
enumerated-dsc.rr.r [, error.j.r]) 


PAS$READ_INTEGER 

PAS$READ_REAI_D 

PAS$READ_REAI_F 

PAS$READ_REAI_G 

PAS$READ_REAI_H 


Read a Decimal Integer from a Text File 

result.wl.v = PAS$READ_INTEGER (file-var.mr.r [, error.j.r]) 

Read a D_floating Value from a Text File 

result.wd.v = PAS$READ_REAI_D (file-var.mr.r [, error.j.r]) 

Read an F_floating Value from a Text File 

result.wf.v = PAS$READ_REAI_F (file-var.mr.r [, error.j.r]) 

Read a G_floating Value from a Text File 

result.wg.v = PAS$READ_REAI_G (file-var.mr.r [, error.j.r]) 

Read an H_.floating Value from a Text File 

CALL PAS$READ_REAI_H (result.wh.r, file-var.mr.r [, error.j.r]) 


PAS$READ_STRING Read a Fixed-Length String from a Text File 

CALL PAS$READ_STRING (result.wt.r, file-var.mr.r, 
string-length.rwu.v [, error.j.r]) 

PAS$READ_STRING1 Read a Fixed-Length String from a Text File Using VI Semantics 

CALL PAS$READ_STRING1 (result.wt.r, file-var.mr.r, string-length.rwu.v 
[, error, j a. r]) 


PAS$READ_UNSIGNED Read an Unsigned Decimal Integer from a Text File 

result.wlu.v = PAS$READ_UNSIGNED (file-var.mr.r [, error.j.r]) 

PAS$READ_VARYING Read a Varying-Length String from a Text File 

CALL PAS$READ_VARYING (result.wvt.r, file-var.mr.r, 
max-length.rwu.v [, error.j.r]) 

PAS$READLN2 Position to Start of Next Line of a Text File 

PAS$READLN2 (file-var.mr.r [, error.j.r]) 


PAS$READV_BOOLEAN Read a Boolean from a String 

result.wv.v = PAS$READV_BOOLEAN (string-dsc.mdsc.r [, error.j.r]) 

PAS$READV_CHAR Read a Single Character from a String 

result.wc.v = PAS$READV_CFHAR (string-dsc.mdsc.r [, error.j.r]) 
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PAS$READV_ENUMERATED 



Read an Enumerated-Type Value from a String 

result.wlu.v = PAS$READV_ENUMERATED (string-dsc.mdsc.r, 

enumerated-descr.rz.r [, error.j.r]) 

PAS$READV_INTEGER 

Read a Decimal Integer from a String 

result.wl.v = PAS$READV_INTEGER (string-dsc.mdsc.r [, error.j.r]) 

PAS$READV_REAI_F 

Read an F_floating Value from a String 

result.wf.v = PAS$READV_REAI_F (string-dsc.mdsc.r [, error.j.r]) 

PAS$READV_REAI_D 

Read a D_floating Value from a String 

result.wd.v = PAS$READV_REAI_D (string-dsc.mdsc.r [, error.j.r]) 

PAS$READV_REAL_G 

Read a G_floating Value from a String 

result.wg.v = PAS$READV_REAI_G (string-dsc.mdsc.r [, error.j.r]) 

PAS$READV_REAI—H 

Read an H_floating Value from a String 

CALL PAS$READV_REAI_H (result.wh.r, string-dsc.mdsc.r [, error.j.r]) 

PAS$READV_STRING 

Read a Fixed-Length String from a String 

CALL PAS$READV_STRING (result.wt.r, string-dsc.mdsc.r, 
string-length.rw.v [,error.j.r]) 

PAS$READV_UNSIGNED 


Read an Unsigned Decimal Integer from a String 

result.wlu.v = PAS$READV_UNSIGNED (string-dsc.mdsc.r [, error.j.r]) 

PAS$READV_ VARYING 

Read a Varying-Length String from a String 

CALL PAS$READV_VARYING (result.wvt.r, string-dsc.mdsc.r, 
max-length.rw.v [, error.j.r]) 

PAS$RELEASE2 

Deallocate All Variables Back to Marked Variable 

CALL PAS$RELEASE2 (pointer.ra.r) 

PAS$RESET2 

Position to Start of File and Enter Inspection Mode 

CALL PAS$RESET2 (file-var.mr.r [, error.j.r]) 

PAS$RESETK 

Position to Beginning of Index 

CALL PAS$RESETK (file-var.mr.r, key-number.rl.r [, error.j.r]) 

PASSREWRITE2 

Scratch File and Enter Generation Mode 

CALL PAS$REWRITE2 (file-var.mr.r [, error.j.r]) 

PAS$ROUND_F_LU 

Round an F_floating Value to an Unsigned Integer 
result.wlu.v = PAS$ROUND_F_LU (value.rf.r) 

PAS$ROUND_D_LU 

Round a D_floating Value to an Unsigned Integer 
result.wlu.v = PAS$ROUND_D_LU (value.rd.r) 

PAS$ROUND_G_LU 

Round a G_floating Value to an Unsigned Integer 
result.wlu.v = PAS$ROUND_G_LU (value.rg.r) 

PAS$ROUND_H_LU 

Round an H_floating Value to an Unsigned Integer 
result.wlu.v = PAS$ROUND_H_LU (value.rh.r) 

PAS$SQR_L 

Return the Square of a Longword 
result.wl.v = PAS$SQR_L (value.rl.r) 
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PAS$SQR_LU 

Return the Square of an Unsigned Longword 
result.wlu.v = PAS$SQR_LU (value.rlu.r) 

PAS$SQR_F 

Return the Square of an F_floating Value 
result.wf.v = PAS$SQR_F (value.rf.r) 

PAS$SQR_D 

Return the Square of a D_fbating Value 
result.wd.v = PAS$SQR_D (value.rd.r) 

PAS$SQR_G 

Return the Square of a G_floating Value 
result.wg.v = PAS$SQR_G (value.rg.r) 

PAS$SQR_H 

Return the Square of an H_floating Value 

CALL PASSSQR-H (result.wh.r, value.rh.r) 

PASSSTATUS 

Get Status of Last File Operation 
status.wl.v = PASSSTATUS (file-var.mr.r) 

PAS$TIME 

Return Time in Hh:mm:ss.ss Format 

CALL PASSTIME (time-string.wt.r) 

PAS$TRUNC_F_LU 

Truncate an F_floating Value to an Unsigned Integer 
result.wlu.v = PAS$TRUNC_F_LU (value.rf.r) 

PAS$TRUNC_D_LU 

Truncate a D_floating Value to an Unsigned Integer 
result.wlu.v = PAS$TRUNC_D_LU (value.rd.r) 

PAS$TRUNC_G_LU 

Truncate a G_floating Value to an Unsigned Integer 
result.wlu.v = PAS$TRUNC_G_LU (value.rg.r) 

PAS$TRUNC_H_LU 

Truncate an H_floating Value to an Unsigned Integer 
result.wlu.v = PAS$TRUNC_H_LU (value.rh.r) 

PAS$TRUNCATE 

Truncate File at Current Position 

CALL PASSTRUNCATE (file-var.mr.r [, error.j.r]) 

PASSUFB 

Inquire If Undefined File Buffer 
result.wv.v = PAS$UFB (file-var.mr.r) 

PAS$UNDEFINED_F 

Test an F_fbating Value for Reserved Operand 
result.wv.v = PAS$UNDEFINED_F (value.rf.r) 

PAS$UNDEFINED_D 

Test a D_floating Value for Reserved Operand 
result.wv.v = PAS$UNDEFINED_D (value.rd.r) 

PAS$UNDEFINED_G 

Test a G_floating Value for Reserved Operand 
result.wv.v = PASSUNDEFINED-G (value.rg.r) 

PAS$UNDEFINED_H 

Test an H_floating Value for Reserved Operand 
result.wv.v = PAS$UNDEFINED_H (value.rh.r) 

PAS$UN LOCK 

Unlock Current Component in File 

CALL PASSUNLOCK (file-var.mr.r [, error.j.r]) 

PASS UPDATE 

Update the Current Component with File Buffer 

CALL PASSUPDATE (file-var.mr.r [, error.j.r]) 
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PAS$WRITE_BIN Write a Binary Value to a Text File 

CALL PAS$WRITE_BIN (file-var.mr.r, nbits.rz.r, value.rz.r, 
total-width.rl.v [[, error.j.r] [, min-digits.rl.v ] ]) 

PAS$WRITE_BOOLEAN Write a Boolean Value to a Text File 

CALL PAS$WRITE_BOOLEAN (file-var.mr.r, boolean.rv.v, 
total-width.rl.v [, error.j.r]) 

PAS$WRITE_CHAR Write a Single Character to a Text File 

CALL PAS$WRITE_CHAR (file-var.mr.r, character.rc.v, total-width.rl.v 
[, error.j.r]) 

PAS$WRITE_ENUMERATED 

Write an Enumerated-Type Value to a Text File 

CALL PAS$WRITE_ENUMERATED (file-var.mr.r, enumerated-dsc.rr.r, 
value.rlu.v, total-width.rl.v [, error.j.r]) 

PAS$WRITE_FHEX Write a Hexadecimal Value to a Text File 

CALL PAS$WRITE_HEX (file-var.mr.r, nbits.rl.v, value.rz.r, 
total-width.rl.v [, [error.j.r] [, min-digits.rl.v] ]) 

PAS$WRITE_INTEGER Write a Signed Decimal Integer to a Text File 

CALL PAS$WRITE_INTEGER (file-var.mr.r, value.rl.v, total-width.rl.v 
[, error.j.r]) 

PAS$WRITE_OCT Write an Octal Value to a Text File 

CALL PAS$WRITE_OCT (file-var.mr.r, nbits.rl.v, value.rz.r, 
total-width.rl.v [, [error.j.r] [, min-digits.rl.v] ]) 

PAS$WRITE_REALE_D Write a D_floating Value in Exponential Format to a Text File 

CALL PAS$WRITE_REALE_D (file-var.mr.r, value.rd.v, total-width.rl.v 
[, error.j.r]) 

PAS$WRITE_REALE_F Write an F_floating Value in Exponential Format 

to a Text File 

CALL PAS$WRITE_REALE_F (file-var.mr.r, value.rf.v, total-width.rl.v 
[, error.j.r]) 

PAS$WRITE_REALE_G Write a G_floating Value in Exponential Format to a Text File 

CALL PAS$WR1TE_REALE_G (file-var.mr.r, value.rg.v, total-width.rl.v 
[, error.j.r]) 

PAS$WRITE_REALE_H Write an H_floating Value in Exponential Format to a Text File 

CALL PAS$WRITE_REALE_H (file-var.mr.r, value.rh.v, total-width.rl.v 
[, error.j.r]) 

PAS$WRITE_REALF_D Write a D_floating Value in Fixed-Point Notation to a Text File 

CALL PAS$WRITE_REALF_D (file-var.mr.r, value.rd.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

PAS$WRITE_REALF_D Write a D_floating Value in Fixed-Point Notation to a Text File 

CALL PAS$WRITE_REALF_D (file-var.mr.r, value.rd.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 
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PAS$WRITE_REALF_D1 

PAS$WRITE_REALF_F 

PAS$WRITE_REALF_F1 

PAS$WRITE_REALF_G 

PAS$WRITE_REALF_H 

PAS$WRITE_STRING 

PAS$WRITE_UNSIGNED 

PAS$WRITE_VARYING 

PAS$WRITELN2 

PAS$WRITEV_BIN 

PAS$WRITEV_BOOLEAN 

PAS$WRITEV_CHAR 


Write a D_floating Value in Fixed-Point Notation to a Text File 
Using Version 1 Semantics 

CALL PAS$WRITE_REALF_D1 (file-var.mr.r, value.rd.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

Write an F_floating Value in Fixed-Point Notation to a Text File 
CALL PAS$WRITE_REALF_F (file-var.mr.r, value.rf.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

Write an F_floating Value in Fixed-Point Notation to a Text File 
Using Version 1 Semantics 

CALL PAS$WRITE_REALF_F1 (file-var.mr.r, value.rf.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

Write a G_floating-Point Value in Fixed-Point Notation to a Text File 
CALL PAS$WRITE_REALF_G (file-var.mr.r, value.rg.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

Write an H_floating Value in Fixed-Point Notation to a Text File 
CALL PAS$WRITE_REALF_H (file-var.mr.r, value.rh.v, total-width.rl.v, 
frac-digits.rl.v [, error.j.r]) 

Write a Fixed-Length String to a Text File 

CALL PAS$WRITE_STRING (file-var.mr.r, string-length.rw.v, string.rt.r 
[, [error.j.r] [, total-width.rl.v] ]) 


Write an Unsigned Decimal Integer to a Text File 

CALL PAS$WRITE_UNSIGNED (file-var.mr.r, value.rlu.v, total-width.rl.v 
[, error.j.r]) 

Write a Varying String to a Text File 

CALL PAS$WRITE_VARYING (file-var.mr.r, value.rvt.r [, [error.j.r] 

[, total-width.rl.v] ]) 

Output Current Buffer of a Text File and Start a New Record 
CALL PAS$WRITELN2(file-var.mr.r [, error.j.r]) 

Write a Binary Value to a String 

CALL PAS$WRITEV_BIN (max-length.rw.v, varying-str.mvt.r, 
value-size.rl.v, value.rz.r, total-width.rl.v [,[error.j.r] 

[,min-digits.rl.v] ]) 


Write a Boolean Value to a String 

(max-length.rw.v, varying-str.mvt.r, value.rv.v, total-width.rl.v 
[, error.j.r]) 

Write a Single Character to a String 

CALL PAS$WRITEV_CFfAR (max-length.rw.v, varying-str.mvt.r, 
value.rc.v, total-width.rl.v [, error.j.r]) 


54.8 Summary of Run-Time Library Entry Points 


September 1982 


PAS$WRITEV_ENUMERATED 

Write an Enumerated-Type Value to a String 

CALL PAS$WRITEV_ENUMERATED (max-length.rw.v, varying-str.mvt.r, 
enumerated-descr.rz.r, value.rlu.v, total-width.rl.v [, error.j.r]) 


PAS$WRITEV_HEX Write a Hexadecimal Value to a String 

CALL PAS$WRITEV_HEX (max-length.rw.v, varying-str.mvt.r, 
value-size.rl.v, value.rz.r, total-width.rl.v [,[error.j.r] 

(,min-digits.rl.v] ]) 


PAS$WRITEV_INTEGER Write a Signed Decimal Integer to a String 

CALL PAS$WRITEV_INTEGER (max-length.rw.v, varying-str.mvt.r, 
value.rl.v, total-width.rl.v [, error.j.r]) 

PAS$WRITEV_OCT Write an Octal Value to a String 

CALL PAS$WRITEV_OCT (max-length.rw.v, varying-str.mvt.r, 
value-size.rl.v, value.rz.r, total-width.rl.v [,[error.j.r] 
[,min-digits.rl.v] ]) 

PAS$WRITEV_REALE_F Write an F_floating Value in Exponential Notation to a String 

CALL PAS$WRITEV_REALE_F (max-length.rw.v, varying-str.mvt.r, 
value.rf.v, total-width.rl.v [, error.j.r]) 


PAS$WRITEV_REALE_D Write a D_floating Value in Exponential Notation to a String 

CALL PAS$WRITEV_REALE_D (max-length.rw.v, varying-str.mvt.r, 
value.rd.v, total-width.rl.v [, error.j.r]) 

PAS$WRITEV_REALE_G Write a G_floating Value in Exponential Notation to a String 

CALL PAS$WRITEV_REALE_G (max-length.rw.v, varying-str.mvt.r, 
value.rg.v, total-width.rl.v [, error.j.r]) 

PAS$WRITEV_REALE_H Write an H_floating Value in Exponential Notation to a String 

CALL PAS$WRITEV_REALE_H (max-length.rw.v, varying-str.mvt.r, 
value.rh.v, total-width.rl.v [, error.j.r]) 


PAS$WRITEV_REALF_F Write an F_floating Value in Fixed-Point Notation to a String 

CALL PAS$WRITEV_REALF_F (max-length.rw.v, varying-str.mvt.r, 
value.rf.v, total-width.rl.v, frac-digits.rl.v [, error.j.r]) 

PAS$WRITEV_REALF_D Write a D_floating Value in Fixed-Point Notation to a String 

CALL PAS$WRITEV_REALF_D (max-length.rw.v, varying-str.mvt.r, 
value.rd.v, total-width.rl.v, frac-digits.rl.v [, error.j.r]) 

PAS$WRITEV_REALF_G Write a G_floating Value in Fixed-Point Notation to a String 

CALL PAS$WRITEV_REALF_G (max-length.rw.v, varying-str.mvt.r, 
value.rg.v, total-width.rl.v, frac-digits.rl.v [, error.j.r]) 


PAS$WRITEV_REALF_H Write an H_floating Value in Fixed-Point Notation to a String 

CALL PAS$WRITEV_REALF_H (max-length.rw.v, varying-str.mvt.r, 
value.rh.v, total-width.rl.v, frac-digits.rl.v [, error.j.r]) 


PAS$WRITEV_STRING Write a Fixed-Length String to a String 

CALL PAS$WRITEV_STRING (max-length.rw.v, varying-str.mvt.r, 
string-length.rw.v, value.rt.r [, error.j.r] [, total-width.rl.v]) 
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PAS$WRITEV_UNSIGNED 

Write an Unsigned Decimal Integer to a String 

CALL PAS$WRITEV_UNSIGNED (max-length.rw.v, varying-str.mvt.r, 
value.rlu.v, total-width.rl.v [, error.j.r]) 

PAS$WRITEV_ VARYING 

Write a Varying String to a String 

CALL PAS$WRITEV_VARYING (max-length.rw.v., varying-str.mvt.r, 
value.rvt.r[, [error.j.r] [, total-width.rl.v] ] 

PLI-Specific Procedures 

PLI$ABITABIT_R6 Convert Aligned Bit String to Aligned Bit String 

CALL PLI$ABITABIT_R6 (src.rv.r, src-dope.rz.r, dest.wv.r, 
dest-dope.wz.r) 

PLI$ABITBIT_R6 Convert Aligned Bit String to Unaligned Bit String 

CALL PLI$ABITBIT_R6 (src.rv.r, src-dope.rz.r, dest.wvu.r, 
dest-dope.wz.r, dest-offset.wv.v) 
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Index 


A 


Absolute value 

PAS$ABS_L, PAS-69 
ACCEPT statement 
COB$ACCEPT, COB-13 
Add CIT data type 
COB$ADDI, COB-34 
Add matrices, BAS—68 
Add numeric strings 
BAS$SUM, BAS—51 
ADVANCING clause 
control bytes, COB—8t 
Allocate new variable 
PAS$MARK2, PAS-78 
PAS$NEW2, PAS-77 
ALLOCATE statement, PLI—74 
Allocate virtual memory 
PLI$ALOCHEEP, PLI—74 
Allowable key types, PAS$FINDK, PAS—25t 
ALPHABET clause, COB-53 
AND operation 

PLI$ANDBIT, PLI—36 
ANYCONDITION condition, PLI—7 
Argument types 

INQUIRE keywords, FOR-23, FOR—24t 
OPEN keywords, FOR-20, FOR-2U 
Arguments 

actual, BAS—12, FOR-3 
dummy, FOR—3 

Arithmetic operations, COB—3, PLI—4 
Arithmetic procedures, COB-34 to COB^tl, 
PLI—65 to PLI—66 

COBOL intermediate temporary, COB—34 to 
COB^tO 

quadword, COB—41 
$ARRAY, PSECT, BAS-5 
Array descriptors 

initialization, FOR—35 
nth-dimensional, FOR—35 
one-dimensional, FOR—35 
support procedures, FOR—35 
two-dimensional, FOR—35 
Arrays, passing, BAS—1 3 


Atomic data types 

BASIC support, GEN—5t 
COBOL support, GEN—9t 
FORTRAN support, GEN—13t 
PASCAL support, GEN—16.It 
PL/I support, GEN-1 7t 
Auxiliary I/O support, COB-2 


B 


Backspace 

FOR$BACKSPACE, FOR-8 
BAS$BUFSIZ, BAS—38 
BAS$CANTYPAHEAD, BAS-40 
BAS$CCPOS, BAS—40 
BAS$CHANGE_NA_S, BAS-43 
BAS$CHANGE_S_NA, BAS-50 
BAS$CHR, BAS-44 
BAS$CLOSE, BAS—37 
BAS$CMPx_APP, BAS—57 
BAS$COMP, BAS—57 
BAS$COMPARE, BAS-57 
BAS$CTRLC, BAS—40 
BAS$CTRLO, BAS-42 
BAS$CVT_D_S, BAS—79 
BAS$CVT_F_S, BAS—79 
BAS$CVT_OUT_D_E, BAS-44 
BAS$CVT_OUT_D_F, BAS-46 
BAS$CVT_OUT_D_G, BAS-45 
BAS$CVT_OUT_F_E, BAS-44 
BAS$CVT_OUT_F_F, BAS-46 
BAS$CVT_S_D, BAS—79 
BAS$CVT_S_F, BAS—79 
BAS$CVT_S_W, BAS—79 
BAS$CVT_W_S, BAS—79 
BAS$DATE_T, BAS-64 
BAS$DELETE, BAS-20 
BAS$DET_D, BAS—75 
BAS$DET_F, BAS—75 
BAS$DIF, BAS—51 
BAS$DSCALE_D_R1, BAS-75 
BAS$ECHO, BAS—41 
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BAS$EDIT, BAS—48 
BAS$END_DEF_R8, BAS-63 
BAS$END_ DFS_ R8, BAS-85 
BASS END—GSB_R8, BAS-64 
BAS$END_R8, BAS-63 
BAS$FETCH_BFA, BAS-30 
BAS$FET_FA_x_R8, BAS-30 
BAS$FIELD_CLEAR, BAS-80 
BAS$FIELD_CLOSE, BAS-80 
BAS$FIELD_COPY, BAS-80 
BAS$FIELD_COP_R, BAS-80 
BAS$FIELD_OPEN, BAS-80 
BAS$FIELD_PURGE, BAS-80 
BAS$FIELD_SET, BAS-80 
BAS$FIELD_VAR, BAS-81 
BAS$FIND, BAS—19 
BAS$FIND_KEY, BAS-21 
BAS$FIND_RECORD, BAS-21 
BASS FORMAT—D, BAS-47 
BASS FORM AT_ F, BAS-47 
BASSFREE, BAS—37 
BASSFSP, BAS—38 
BASSGET, BAS—19 
BASSGET—KEY, BAS-21 
BAS$GET_RECORD, BAS-21 
BASSHANDLER, BAS-14, GEN-54 
BASSINIT—C_GSB, BAS-11, BAS-59 
BAS$INIT_DEF_R8, BAS-60 
BAS$INIT_DFS_R8, BAS-84 
BAS$INIT_GOSUB, BAS-60 
BASSINIT—IOL, BAS—61 
BAS$INIT_ONERR, BAS-62 
BAS$INIT_R8, BAS—61 
BASSINPUT, BAS—23 
BASSINPUT—LINE, BAS-23 
BASSINSTR, BAS—55 
BASSIN—d_R, input number, BAS—24 
BAS$IN_MAT, input matrix, BAS—27 
BAS$IN_T_DX, input text, BAS-25 
BASSIO—END, I/O list termination call, 
BAS—29 

BASSKILL, BAS—66 
BASSLEFT, BAS—53 
BASSLINPUT, BAS-23 
BAS$MAT_ADD, BAS-68 
BAS$MAT_ASSIGN, BAS-69 
BASSMAT—IDN, BAS-69 
BASSMAT—INIT, BAS-70 
BASSMAT-INPUT, BAS-23 
BASSMAT—INV, BAS-70 
BASSMAT-LINPUT, BAS-23 
BASSMAT-MUL, BAS-71 
BAS$MAT_NULL, BAS-72 
BAS$MAT_PRINT, BAS-23 


BASSMAT-READ, BAS-32 
BAS$MAT_REDIM, BAS-72 
BAS$MAT_SCA_MUL, BAS-73 
BAS$MAT_SUB, BAS-74 
BASSMAT—TRN, BAS-74 
BASSNOECHO, BAS-41 

BAS$NUM, number of matrix elements, BAS-28 
BAS$NUM2, number of elements in last row, 
BAS-28 

BASSOPEN, BAS—34 

BASSOUT—d_m_f, output number, BAS—26 

BASSOUT—MAT—f, output matrix, BAS—28 

BASSOUT—T—DX—f, output text, BAS—27 

BASSPLACE, BAS—51 

BASSPOS, BAS—55 

BASSPOWDD, BAS—56 

BASSPOWDJ, BAS—56 

BASSPOWII, BAS—56 

BASSPOWJJ, BAS—56 

BASSPOWRJ, BAS—56 

BASSPOWRR, BAS—56 

BASSPRINT, BAS-23 

BAS$PRINT_USING, BAS-23 

BASSPROD, BAS—51 

BASSPUT, BAS—20 

BAS$PUT_COUNT, BAS-20 

BAS$PUT_RECORD, BAS-21 

BASSPUT—REC—CNT, BAS-21 

BASSQUO, BAS—51 

BASSRAD, BAS—48 

BASSRANDOMIZE, BAS-66 

BASSRCTRLC, BAS-40 

BASSRCTRLO, BAS^12 

BASSREAD, BAS-32 

BASS RESTART—IO, BAS-1 7 

BASSRESTORE, BAS-20, BAS-21 

BAS$RESTORE_DAT, BAS-33 

BAS$RESTORE_KEY, BAS-21 

BASSRESUME, BAS-16 

BAS$RESUME_Z, BAS-16 

BASSRIGHT, BAS—53 

BAS$RND._F_R1, BAS-67 

BASSRSET, BAS—52 

BAS$RSET__R, BAS-52 

BASSRUN—INIT, BAS-66 

BAS$SCALE_D_R1, BAS-76 

BASSSCRATCH, BAS-20 

BASSSEG, BAS—53 

BASSSLEEP, BAS-41 

BASSSTATUS, BAS-39 

BAS$STORE_BFA, BAS-30 

BASSSTO—FA_RDX, BAS-30 

BASSSTO—FA_x_R8, BAS-30 

BASSSTRING, BAS-54 


Index—2 


September 1982 




BAS$STR_D, BAS—47 

BAS$STR_F, BAS—47 

BAS$STR_L, BAS—47 

BAS$SUM, BAS—51 

BAS$SYS, BAS—82 

BAS$TAB, BAS—54 

BAS$TIME_F / BAS—65 

BAS$TIME_T, BAS—65 

BAS$TRM, BAS—49 

BAS$UNLOCK, BAS-37 

BAS$UPDATE, BAS-20, BAS-21 

BAS$ UPDATE—COUN, BAS-20, BAS-21 

BAS$VAL_D, BAS—50 

BAS$VAI_F, BAS—50 

BAS$VAI_L, BAS—50 

BAS$WAIT, BAS-42 
BASIC compiled code 
memory layout, BAS—3 
Bit clear 

bit operations, FOR-37 
Bit move 

bit operations, FOR-37 
Bit operations 

bit clear, FOR$xlBCLR, FOR-37 
bit move, FOR$xMVBITS, FOR-37 
bit set, FOR$xlBSET, FOR-37 
bit shift, FOR$xlSHFTC, FOR-37 
bit test, FOR$BxTEST, FOR-37 
MIL—STD 1753 functions, FOR-37 
return a subfield, FOR$xlBITS, FOR—37 
Bit set 

bit operations, FOR-37 
Bit shift 

bit operations, FOR-37 
Bit test 

bit operations, FOR—37 
$BLANK, PSECT, FOR-2 
Block I/O files, BAS-29 
BOOL built-in function 
PLI$BOOLBIT, PLI-37 
Boolean operation 

PLI$BOOLBIT, PLI-37 
BSF$A_ USER—HAND, BAS-3, BAS-1 5 
Build DEF* statement frame 
BAS$INIT_DFS_R8, BAS-84 
Built-in subroutines 
file-handling, PLI-31 to PLI-34 
BY DESC, BAS-12 
BY REF, BAS-1 2 

C 

CALL statement, FOR—3 
COB$CALL, COB-43 


Calling 

PASCAL procedures, PAS—3 to PAS—4 
PL/I procedures, PLI—6 
user procedures, BAS-14 
Calling conventions 
PASCAL, PAS-3 
Calling sequence, FOR-3 
condition handlers, BAS-1 2 
DEF functions, BAS—10 
DEF* functions, BAS-84 
external functions, BAS—9 
GOSUB routines, BAS—10 
immediate on-line routines, BAS—12 
main programs, BAS—9 
subprograms, BAS—9 
CANCEL statement 

COB$CANCEL, COB-44 
Character string 

manipulation procedures, PLI-42 to PLI-44 
overview of PASCAL support procedures, 
PAS-2 

Check file integrity 
PLI$FLUSH, PLI—32 
Check range of subscript 

PLI $ BOUND-CHECK, PLI—71 
CHF, VAX-11 Condition Handling Facility, 
BAS-14 
Class test table 
COBOL, COB-63 

CLOSE procedures, PASCAL, PAS—21 to PAS-22 
procedure epilog routine, PAS—22 
CLOSE statement, PLI—1 3 
BAS$CLOSE, BAS-37 
FOR$CLOSE, FOR—23 
$CLOSE, system service, COB-10 
COB$AB_SPANC, COB-64 
COB$ACCEPT, COB-13 
COB$ACC—DATE, COB-44 
COB$ACC_DAY, COB-44 
COB$ACC_DAYWEEK, COB-45 
COB$ACC—TIME, COB-45 
COB$ADDI, COB-34 
COB$CALL, COB-43 
COB$CANCEL, COB-44 
COB$CMPI, COB—40 
COB$CNVOUT, COB-28 
COB$CVTDI_R8, COB-24 
COB$CVTDP_R9, COB-31 
COB$CVTDQ_R8, COB-31 
COB$CVTFI_R8, COB-24 
COB$CVTFP_R9, COB-30 
COB$CVTFQ_R8, COB-30 
COB$CVTID_R7, COB-26 
COB$CVTIF_R7, COB-26 
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COB$CVTII_R8, COB-26 

COB$CVTIP_R9, COB-27 
COB$CVTIQ-R8, COB-26 
COB$CVTIW_R8, COB-26 
COB$CVTLI_R8, COB-24 
COB$CVTPD_R9, COB-33 
COB$CVTPF_R9, COB-33 
COB$CVTPI_R8, COB-24 
COB$CVTPQ_R9, COB-33 
COB$CVTQD_R8, COB-29 
COB$CVTQF_R8, COB-29 
COB$CVTQI—R8, COB-24 
COB$CVTQP_R9, COB-29 
COB$CVTRDP_R9, COB-32 
COB$CVTRDQ_R8, COB-31 
COB$CVTRFP_R9, COB-30 
COB$CVTRFQ_R8, COB-30 

COB$CVTRII_R8, COB-26 

COB$CVTRIP_R9, COB-27 
COB$CVTRIQ_R8, COB-26 
COB$CVTRIW_R8, COB-26 
COB$CVTRPQ_R9, COB-33 
COB$CVTRQP_R9, COB-29 
COB$CVTTI_R8, COB-24 
COB$CVTWI_R8, COB-24 
COB$DBEXCEPTION, COB-47, COB-49 
COB$DEEDIT, COB-65 
COB$DISPLAY, COB-14 
COB$DISPLAY_NO_ADV, COB-15 
COB$DIVI, COB-37 
COB$DIVI_OSE, COB-38 
COB$DIVQ_R8, COB-41 
COB$ERROR, COB-45, COB-46 
COB$EXPI, COB-38 
COB$EXPI_OSE, COB-39 
COB$HANDLER, COB-45, COB-47, GEN-55, 
GEN-58 

COB$INIT_LINAGE, COB-9 
COB$INPUT 

default device name, COB—13 
COB$IOEXCEPTION, COB-15, COB-47, 
COB-18 

COB$LINAGE, COB-10 
COB$MULI, COB-36 
COB$MULQ_R8, COB-41 
COB$OUTPUT, COB-1 5 
COB$PAUSE, COB-52 
COB$SET_SWITCH, COB-51 
COB$SUBI, COB-35 
COB$SWITCH, COB-51 
COB$TERM_LINAGE, COB-10 
COB$_INVDECDAT, COB-46 
COBOL class test table, COB—63 


COBOL compiled code 
support procedures, COB-1 
$CODE, PSECT, BAS-4, FOR-2 
CODE-SET clause, COB-53 
Codes for errors signaled by PAS$HANDLER, 
PAS—9t 
Coding 

user procedures, BAS-12 
COM/MAP, PSECT, BAS-5 
Compare 

bit strings, PLI$CMPBIT, PLI-40 
CIT data type, COB$CMPI, COB-40 
Compare approximate 

BAS$CMPx_APP, BAS—57 
Compare strings, FOR—38 
exact, BAS$COMPARE, BAS-57 
numeric, BAS$COMP, BAS-57 
Compatibility procedures, BAS-79 to BAS-85 
Compiled-code support, PLI—4 

miscellaneous, FOR—41 to FOR—44 
Compiled-code support procedures, 

BAS—59 to BAS—77, COB-3, COB-43 to 
COB-52, 

FOR—35 to FOR—44, PLI-67 to PLI-76 
Computed GOSUB statement 
BAS$INIT_C_GSB, BAS-59 
Concatenate bit strings 
PLI$CATBIT, PLI-40 

Condition handler, BAS-7, FOR-3, PLI-68 to 
PLI—69 

COB$HANDLER, COB-45 

COBOL default, COB$HANDLER, COB-47 

default, FOR-3 

error actions, GEN—53 

initializing, BAS—16 

PASCAL-specific handler (PAS$HANDLER), 
PAS-8 to PAS-9 
PL/I ON-unit, PLI—7, PLI—8 
PLI$CND_HND, PLI-68 
PLI$DEF_HND, PLI-68 
PLI$IO_ERROR, PLI—69 
returning from, BAS—16 
underflow exception, 

FOR$UNDERFLOW_HANDLER, FOR-40 
Condition handlers, COB-4 
Condition handling, COB—3, COB—45 
to COB—50 

default PL/I, PLI-9 to PLI-10 
PL/I built-in functions for, PLI—69 to 
PLI—71 

PL/I built-in subroutines for, 

PLI—69 to PLI—71 
in PL/I, PLI—4, PLI-68 to PLI-73 
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Condition handling (Cont.) 

user-written handlers for PASCAL file I/O 
errors, PAS—6 
Condition signal, FOR-3 
Condition symbol, FOR—3 
Condition value, FOR-3, GEN-56 
SS$_RESIGNAL, GEN-58 
SS$_UNWIND, GEN-58.1 
Conditions 

ANYCONDITION, PLI-7, PLI-9 
ENDFILE, PLI-7 
ENDPAGE, PLI-7, PLI-9 
ERROR, PLI-7, PLI-9 
FINISH, PLI-8, PLI-9 
FIXEDOVERFLOW, PLI-7 
KEY, PLI-7 
OVERFLOW, PLI-7 
UNDEFINEDFILE, PLI-7 
UNDERFLOW, PLI-7 
VAXCONDITION, PLI-8 
ZERODIVIDE, PLI-7 
$CONNECT, FOR—19 
Context block 

COB$INIT_LINAGE, COB-9 
COB$LINAGE, COB-10 
COB$TERM_LINAGE, COB-11 
LINAGE clause, COB-7 
Control block, FOR-6, FOR-19 
Control blocks 
RMS, PLI-12 
Control bytes 

ADVANCING clause, COB-8t 
Control procedures, PLI—4 
Conventions. 5ee naming conventions 
Conversion 

overview of PASCAL support procedures, 
PAS-2 

Conversion from CIT 
register usage, COB-27t 
Conversion from D_floating 
register usage, COB-32t 
Conversion from F_floating 
register usage, COB-3 It 
Conversion from packed decimal 
register usage, COB—33t 
Conversion from quadword 
register usage, COB—30t 
Conversion to CIT 

register usage, COB-25t 
Conversion using CIT, COB-24 to COB-28 
Convert aligned bit string 

to aligned bit string, PLI$ABITABIT_R6, 
PLI—64 


Convert aligned bit string (Cont.) 

to fixed binary, PLI$ABITFIXB_R6, PLI-50 
to fixed character string, PLI$ABITCHAR_R6, 
PLI—59 

to fixed decimal, PLI$ABITFIXD_R6, 

PLI-50 

to floating binary, PLI$ABITFLTB_R6, 

PLI-50 

to floating decimal, PLI$ABITFLTD_R6, 

PLI-50 

to picture, PLI$ABITPIC_R6, PLI-54 
to unaligned bit string, PLI$ABITBIT_R6, 

PLI—64 

to varying character string, 

PLI$ABITVCHA_R6, PLI-59 
Convert arithmetic 

to arithmetic, PLI-47 to PLI-48 
to bit string, PLI—61 to PLI—62 
Convert array 

numbers to string, BAS$CHANGE_NA_S, 
BAS—43 
Convert ASCII 
to EBCDIC, COB-53 
Convert bit string 

to arithmetic, PLI—49 to PLI—51 
to bit string, PLI—64 
to character string, PLI-59 to PLI-60 
to floating binary, PLI$BITFLTB_R6, 

PLI-50 
Convert byte 

to character, BAS$CHR, BAS-44 
Convert character string 

to arithmetic, PLI—51 to PLI—52 
to bit string, PLI—63 to PLI-64 
to character string, PLI—60 
Convert CIT, COB-26 to COB-28 
to D_floating, COB$CVTID_R7, COB-26 
to F_floating, COB$CVTIF_R7, COB-26 

to longword, COB$CVTII_R8, COB-26 

to longword rounded, COB$CVTRII_R8, 

COB-26 

to packed decimal, COB$CVTIP_R9, COB-27 
to packed decimal rounded, 

COB$CVTRIP_R9, COB-27 
to quadword, COB$CVTIQ_R8, COB-26 
to quadword rounded, COB$CVTRIQ_R8, 
COB-26 

to word, COB$CVTIW_R8, COB-26 
to word rounded, COB$CVTRIW_R8, COB-26 
Convert D_floating 

to CIT,COB$CVTDI_R8, COB-24 

to E- or F-format, BAS$CVT_OUT_D_G, 

BAS—45 
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Convert D_floating (Cont.) 

to packed decimal, COB$CVTDP_R9, COB-31 
to packed decimal rounded, 
COB$CVTRDP_R9, COB-32 
to quadword, COB$CVTDQ_R8, COB—31 
to quadword rounded, COB$CVTRDQ_R8, 
COB-31 

Convert EBCDIC 
to ASCII, COB-53 
Convert fixed binary 

to aligned bit string, PLI$FIXBABIT_R6, 

PLI-62 

to fixed binary, PLI$FIXBFIXB_R6, PLI-47 
to fixed character string, PLI$FIXBCHAR_R6, 
PLI-56 

to fixed decimal, PLI$FIXBFIXD_R6, 

PLI-47 

to floating binary, PLI$FIXBFLTB_R6, 

PLI-47 

to floating decimal, PLI$FIXBFLTD_R6, 

PLI—48 

to picture, PLI$FIXBPIC_R6, PLI—54 
to unaligned bit string, PLI$FIXBBIT_R6, 

PLI—61 

to varying character string, 

PLI$FIXBVCHA_R6, PLI-56 
Convert fixed character string 

to aligned bit string, PLI$CHARABIT_R6, 

PLI—64 

to fixed binary, PLI$CHARFIXB_R6, PLI—51 
to fixed character string, PLI$CHARCHAR_R6, 
PLI—60 

to fixed decimal, PLI$CHARFIXD_R6, 

PLI—51 

to floating binary, PLI$CHARFLTB_R6, 

PLI—51 

to floating decimal, PLI$CHARFLTD_R6, 

PLI—51 

to picture, PLI$CHARPIC_R6, PLI-54 
to unaligned bit string, PLI$CHARBIT_R6, 

PLI—63 

to varying character string, 

PLI$CHARVCHA_R6, PLI-60 
Convert fixed decimal 

to aligned bit string, PLI$FIXDABIT_R6, 

PLI-62 

to fixed binary, PLI$FIXDFIXB_R6, PLI-47 
to fixed character string, PLI$FIXDCHAR_R6, 
PLI-56 

to fixed decimal, PLI$FIXDFIXD_R6, 

PLI-47 

to floating binary, PLI$FIXDFLTB_R6, 

PLI-47 


Convert fixed decimal (Cont.) 

to floating decimal, PLI$FIXDFLTD_R6, 
PLI-48 

to picture, PLI$CVT_TO_PIC, PLI—52 
to picture, PLI$FIXDPIC_R6, PLI-54 
to picture, PLI—52 

to unaligned bit string, PLI$FIXDBIT_R6, 

PLI—61 

to varying character string, 
PLI$FIXDVCHA_R6, PLI-56 
Convert fixed-point 

to character string, PLI—55 to PLI—57 
Convert floating 

to character string, PLI—57 to PLI—58 
to E-format, BAS$CVT_OUT_x_E, BAS-44 
to E-format, COB$CNVOUT, COB-28 
to F-format, BAS$CVT_OUT_x_F, BAS-46 
to formatted string,BAS$FORMAT_x, BAS-47 
to text, PAS$CVT_x_T, PAS-79 
Convert floating binary 

to aligned bit string, PLI$FLTBABIT_R6, 
PLI-62 

to fixed binary, PLI$FLTBFIXB_R6, PLI-47 
to fixed character string, PLI$FLTBCHAR_R6, 
PLI—58 

to fixed decimal, PLI$FLTBFIXD_R6, 

PLI-47 

to floating binary, PLI$FLTBFLTB_R6, 

PLI-48 

to floating decimal, PLI$FLTBFLTD_R6, 
PLI-48 

to picture, PLI$FLTBPIC_R6, PLI-54 
to unaligned bit string, PLI$FLTBBIT_R6, 
PLI-62 

to varying character string, 
PLI$FLTBVCHA_R6, PLI-58 
Convert floating decimal 

to aligned bit string, PLI$FLTDABIT_R6, 
PLI-62 

to fixed binary, PLI$FLTDFIXB_R6, PLI-47 
to fixed character string, PLI$FLTDCHAR_R6, 
PLI-58 

to fixed decimal, PLI$FLTDFIXD_R6, 

PLI-48 

to floating binary, PLI$FLTDFLTB_R6, 

PLI-48 

to floating decimal, PLI$FLTDFLTD_R6, 
PLI-48 

to picture, PLI$FLTDPIC_R6, PLI-54 
to unaligned bit string, PLI$FLTDBIT_R6, 
PLI-62 

to varying character string, 
PLI$FLTDVCHA_R6, PLI-58 
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Convert floating-point to text 
FOR$CVT_x_Ty, FOR-32 
Convert F_floating 

to CIT, COB$CVTFI_R8, COB-24 

to packed decimal, COB$CVTFP_R9, COB-30 

to packed decimal rounded, 

COB$CVTRFP_R9, COB-30 
to quadword, COB$CVTFQ_R8, COB-30 
to quadword rounded, COB$CVTRFQ_R8, 
COB—30 

Convert leading separate 
to packed decimal, COB—46 
Convert longword 

to CIT, COB$CVTLI_R8, COB-24 
Convert number 

to numeric string, BAS$STR_X, BAS-47 
Convert numeric string 

to number, BAS$VAI_x, BAS-50 

Convert packed decimal 

to CIT, COB$CVTPI_R8, COB-24 
to D_floating, COB$CVTPD_R9, COB-33 
to F_floating, COB$CVTPF_R9, COB-33 
to picture, PLI$CVT_TO_PIC, PLI-53 
to quadword, COB$CVTPQ_R9, COB-33 
to quadword rounded, COB$CVTRPQ_R9, 
COB-33 
Convert picture 

to aligned bit string, PLI$PICABIT_R6, 

PLI-63 

to arithmetic, PLI—49 
to bit string, PLI-62 
to character string, PLI—58 
to fixed binary, PLI$PICFIXB_R6, PLI-49 
to fixed character string, PLI$PICCHAR_R6, 
PLI—58 

to fixed decimal, PLI$CVT_FR_PIC, PLI-53 
to fixed decimal, PLI$PICFIXD_R6, PLI-49 
to floating binary, PLI$PICFLTB_R6, 

PLI-49 

to floating decimal, PLI$PICFLTD_R6, 

PLI-49 

to packed decimal, PLI$CVT_FR_PIC, 

PLI-53 

to picture, PLI$PICPIC_R6, PLI-54 
to unaligned bit string, PLI$PICBIT_R6, 

PLI-63 

to varying character string, 

PLI$PICVCHA_R6, PLI—59 
Convert quadword 

to CIT, COB$CVTQI_R8, COB-24 
to D_floating, COB$CVTQD_R8, COB-29 
to F_floating, COB$CVTQF_R8, COB-29 


Convert quadword (Cont.) 

to packed decimal, COB$CVTQP_R9, 
COB-29 

to packed decimal rounded, 
COB$CVTRQP_R9, COB-29 
Convert signed longword 

to unsigned byte, PAS$CONBERT_l_BU, 

PAS-64 
Convert string 

to array of numbers, BAS$CHANGE_S_NA, 
BAS-50 
Convert text 

to CIT, COB$CVTTI_R8, COB-24 
Convert to arithmetic, PLI-46 to PLI—52 

Convert to binary-format text, PAS$BIN, 
PAS-72 

Convert to bit string, PLI—61 to PLI—65 

Convert to character string, PLI—55 to 
PLI—61 

Convert to CIT, COB-24 to COB-25 
Convert to double-precision, 

PAS$CONVERT_x_y, PAS-66 
Convert to F_floating, PAS$CONVERT_x_F, 
PAS-65 

Convert to hexadecimal-format text, PAS$HEX, 
PAS-73 

Convert to H_floating, PAS$CONVERT_x_EH, 
PAS—67 

Convert to octal-format text, PAS$OCT, 

PAS-73 

Convert to picture, PLI—52 to PLI—55 
Convert to signed longword, 

PAS$CONVERT_x_L, PAS-68 
Convert trailing numeric 

to packed decimal, COB—46 
Convert unaligned bit string 

to aligned bit string, PLI$B!TABIT_R6, 

PLI—64 

to fixed binary, PLI$BITFIXB_R6, PLI-49 
to fixed character string, PLI$BITCHAR_R6, 
PLI—59 

to fixed decimal, PLI$BITFIXD_R6, PLI-50 
to floating decimal, PLI$BITFLTD_R6, 
PLI-50 

to picture, PLI$BITPIC_R6, PLI-54 
to unaligned bit string, PLI$BITBIT_R6, 

PLI—64 

to varying character string, 
PLI$BITVCHA_R6, PLI-59 
Convert varying character string 

to aligned bit string, PLI$VCF1AABIT_R6, 
PLI—64 
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Convert varying character string (Cont.) 

to fixed binary, PLI$VCHAFIXB_R6, PLI-51 
to fixed character string, PLI$VCHACHAR_R6, 
PLI-60 

to fixed decimal, PLI$VCHAFIXD_R6, 

PLI-51 

to floating binary, PLI$VCHAFLTB_R6, 

PLI-51 

to floating decimal, PLI$VCHAFLTD_R6, 
PLI-51 

to picture, PLI$VCHAPIC_R6, PLI-54 
to unaligned bit string, PLI$VCHABIT_R6, 
PLI-64 

to varying character string, 

PLI$VCHAVCHA_R6, PLI-60 
Convert word 

to 3—character string,BAS$RAD, BAS—48 
to CIT,COB$CVTWI_R8, COB-24 
Copy any class string 

by descriptor, BAS$RSET, BAS—52 
by reference, BAS$RSET_R, BAS—52 
Copy matrices, BAS—69 
CTRL/C Traps 

disable, BAS$RCTRLC, BAS-40 
enable, BAS$CTRLC, BAS-40 
Cursor position 

BAS$CCPOS, BAS-40 
CVT functions, RSTS 
BAS$CVT_x_y, BAS-79 
CVTSP, machine instruction, COB-46 
CVTTP, machine instruction, COB—46 


D 

Data base access errors 
COBOL handling, COB$DBEXCEPTION, 
COB-49 

Data forms. See Parameter passing mechanisms 
Data pointer, BAS—32 
Data pool, BAS-32 
DATA statement, BAS-32 
Data type conversion, COB—3 
Data type conversion routines 
parameters for PL/I, PLI—46t 
Data types, COB-4, GEN-1, BAS-22. See 
also Parameter data types 
abbreviations for PL/I, PLI—3t 
atomic, BASIC support, GEN-5t 
atomic, COBOL support, GEN-9t 
atomic, FORTRAN support, GEN-1 3t 
atomic, PASCAL support, GEN-1 6.It 
atomic, PL/I support, GEN-1 7t 
conversion of COBOL, COB—1 7 to COB—33 


Data types (Cont.) 

conversion of PL/I, PLI—3, PLI-45 to 
PLI—65 

conversion procedures, COB-21 to COB-33 
conversion using CIT, COB-24 to COB-28 
conversion using floating-point, 

COB-28 to COB-33 
conversion using integers, COB-28 to 
COB-33 

conversion using packed decimal, 

COB-28 to COB-33 
language support, GEN-4t 
other, BASIC support, GEN-8t 
other, COBOL support, GEN-12t 
other, FORTRAN support, GEN-1 6t 
other, PASCAL support, GEN-1 6.4t 
other, PL/I support, GEN-2 It 
parameter passing mechanisms, GEN—3 
passed in arrays, GEN-22 to GEN-25 
passed in arrays, BASIC, GEN-22t 
passed in arrays, COBOL, GEN-22t 
passed in arrays, FORTRAN, GEN—23t 
passed in arrays, PL/I, GEN-24t 
scaled data items, COB-20t 
string, BASIC support, GEN-7t 
string, COBOL support, GEN-1 It 
string, FORTRAN support, GEN-1 5t 
string, PASCAL support, GEN-16.3t 
string, PL/I support, GEN-19t 
supported by BASIC, BAS-1 
supported by COBOL, COB-1 7 
supported by FORTRAN, FOR-1 
supported by PL/I, PLI-45 
unsealed data items, COB-18t 
USAGE clause, COB-18 
valid conversions, COB—211 
Date/time utilities, COB-44, PAS-76 to 
PAS-77, PLI—5, PLI—73 
overview of PASCAL support procedures, 
PAS-2 

Deallocate variable 

PAS$DISPOSE2, PAS-77 
PAS$RELEASE2, PAS-78 
Decimal width 
format code, FOR-29 
DEF functions, BAS-7 
DEF statement 

BAS$END_DEF_R8, BAS-63 
BAS$INIT_DEF_R8, BAS-60 
DEF* functions 
calling sequence, BAS—84 
DEF* statement, BAS-84 
Default formats 
format code, FOR-30 
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Delete a file 

BAS$KILL, BAS—66 
Delete current record 
BAS$DELETE, BAS-20 
FOR$DELETE, FOR-12 
FOR$DELETE_D, FOR-1 5 
PAS$DELETE, PAS-23 
Delete record 

PLI$DELETE, PLI-29 
DELETE statement 
PLI$DELETE, PLI-29 
Descale a D_floating value 
BAS$DSCALE_D_R1, BAS-75 
Determinant retrieval 
BAS$DET_x, BAS-75 
Direct I/O 
formatted, FOR-15 
unformatted, FOR-16 

Direct I/O procedures, FOR-14 to FOR-1 6 
DISPLAY built-in subroutine 
PLI$DISPLAY, PLI-31 
Display contents of buffer, PLI—25 
Display file attributes 
PLI$DISPLAY, PLI-31 
DISPLAY statement 
COB$DISPLAY, COB-14 
Divide 

CIT data type, COB$DIVI, COB-37 
CIT data type, on size error,COB$DIVI_OSE, 
COB-38 

packed decimal, PLI$DIV_PK_LONG, PLI—65 
packed decimal, PLI$DIV_PK_SHORT, PLI—65 
quadwords, COB$DIVQ_R8, COB-41 
Divide numeric strings 
BAS$QUO, BAS—51 
Dope vector, PL/I, PU-36, PLI-42 
Dynamic allocation of virtual memory, 

PAS-77 to PAS-78, PLI-74 

E 


EBCDIC code, COB-53 
Echoing 

disable, BAS$NOECHO, BAS-41 
enable, BAS$ECHO, BAS-41 
Edit string 

BAS$EDIT, BAS—48 
Element transmission calls 
I/O list, BAS—22, FOR—8 
input number, BAS—24 
input text, BAS—25 
output number, BAS-26 
output text, BAS—27 


End-of-file condition, PAS$EOF2, PAS—31 
End-of-file record 

BAS$SCRATCH, BAS-20 
FOR$ENDFILE, FOR-8 
End-of-line condition, PAS$EOLN2, PAS-35 
END specifier, GEN-55 
ENDFILE condition, PLI—7 
ENDPAGE condition, PLI—7, PLI—9 
Entry point name, FOR—3 
ERR specifier, GEN-55 
ERROR : CONTINUE 
parameter for PASCAL I/O procedures, 
PAS-6 

ERROR : error-recovery, GEN—55 
Error actions 

in BASIC, GEN-54 
in COBOL, GEN-55 
in FORTRAN, GEN-55 
in PASCAL, GEN-55, PAS-4 to PAS-9 
in PL/I, GEN-56 
resignaling, COB-46, GEN-53 
signaling, GEN-53 
unwinding, GEN—54 
ERROR condition, PLI—7, PLI—9 
Error conditions 
ANYCONDITION, PLI—7 
ENDFILE, PLI—7 
ENDPAGE, PLI—7, PLI—9 
ERROR, PLI—7, PLI—9 
FIXEDOVERFLOW, PLI—7 
KEY, PLI—7 
OVERFLOW, PLI—7 
for PASCAL file I/O errors, PAS—5 
for PASCAL nonfile errors, PAS—6 to PAS—7 
UNDEFINEDFILE, PLI—7 
UNDERFLOW, PLI—7 
ZERODIVIDE, PLI—7 
Error handling, COB-45 to COB-50 
errors detected by compiled code, 

PAS-7 to PAS-8 

for PASCAL file I/O errors, PAS—6 to 
PAS-6 

PASCAL-specific handler (PAS$HANDLER), 
PAS-8 to PAS-9 

recovering from errors detected by 
compiled code, PAS—8 
recovering from PASCAL nonfile errors, 
PAS-6 to PAS-7 
Error messages 

for PASCAL file I/O errors, PAS-4 
for PL/I I/O procedures, PLI—11 
returned by PASCAL text file I/O routines, 
PAS-36, PAS-43 
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Error signaling, BAS-14, FOR-3, PLI-7, 

PLI-68 to PLI-73 

exceptions signaled by PASCAL compiled code, 
PAS—9t 

by PASCAL I/O procedures, PAS-6 
PASCAL nonfile errors, PAS-7 
run-time, COB$ERROR, COB—45 
run-time, PAS$HANDLER, PAS-9 
Example 

I/O statements, BAS-22, FOR-6 
PL/I calling COBOL, COB-4 
Exit image 

PAS$HALT, PAS-76 
$EXIT, system service, PLI-8 
Exponent 

extract unbiased binary, PAS$EXPO_x, 

PAS-70 

Exponential width 
format code, FOR-29 
Exponentiate 

CIT data type, COB$EXPI, COB-38 
CIT data type, on size error, COB$EXPI_OSE, 
COB-39 

Exponentiation procedures, BAS—56 
EXTEND built-in subroutine 
PLI$EXTEND, PLI-32 
Extend disk allocation 
PLI$EXTEND, PLI-32 
Extended attribute block, XAB, GEN-43 
EXTERNAL attribute, PLI-6 
External function, BAS—7 
External procedures, PLI—6 
External switches, COB—51 
Extract a substring 
BAS$SEG, BAS—53 

Extract unbiased binary exponent, PAS$EXPO_x, 
PAS-70 

F 

FAB, GEN-50 

fields set by OPEN, GEN-44t to GEN-47t 
file access block, GEN—43 
Facility symbols. See facility names 
FCD, frame control data, BAS—6 
Fetch array element 

BAS$FETCH_BFA, BAS-30 
Fetch array number 

BAS$FET_FA_x_R8, BAS-30 
FIELD functions, RSTS 

BAS$FIELD_xxxxx, BAS—80 
Field width 

format code, FOR—28 


File access block, FAB, GEN-43 
PAS$FAB, PAS-20 
File attributes 

information, PASCAL data structures, 

PAS-10 to PAS-16 
File attributes, information 
BAS$FSP, BAS—38 
File buffer 

PASCAL, PAS-33 

PASCAL, attempt to make valid, PAS-35 
File characteristics 

RMS file structure, GEN-27 
File descriptor, PASCAL, PAS-1 3f 
fields of, PAS-13 to PAS-14 
File-handling built-in subroutines, 

PLI—31 to PLI—34 
File-handling services 
VAX-11 RMS, PLI—31 to PLI-34 
File I/O operations, BAS-19, FOR-5, 

PLI—14 to PLI—30 
PASCAL, PAS-23 to PAS-33 
PASCAL errors, PAS-4 to PAS-6 
PASCAL file-related data structures, 

PAS-10 to PAS-16 
PASCAL text file routines, PAS—34 to 
PAS-51 

record I/O, PLI—25 to PLI-30 
recovering from PASCAL errors, PAS—5 to 
PAS-6 

stream I/O, PLI—14 to PLI—25 
testing status in PASCAL, PAS—32 
File name 
default, FOR-7t 
File organization, information 
BAS$FSP, BAS—38 
File organizations 

BASIC support, GEN-31 
COBOL support, GEN—33 
FORTRAN support, GEN-34 
PASCAL support, GEN-36 
PL/I support, GEN-36.2 
RMS file structure, GEN—28 
File processing 

overview of PASCAL support, PAS-1 
File processing support, COB-2, COB-7 to 
COB-11, PAS-10 to PAS-51, PLI—2, PLI—11 
to PLI-30 

File status procedures, BAS-37 to BAS-39, 
PAS-32 
Files 

block I/O, BAS—29 
in PASCAL, PAS-10 
PASCAL predeclared, PAS-1 6 
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Files (Cont.) 

PASCAL predeclared, default attributes, 
PAS-16f 

virtual array, BAS—29 
Find indexed record 
BAS$FIND_KEY, BAS-21 
Find record 
BAS$FIND, BAS—19 
by key, PAS$FINDK, PAS-24 
PAS$FIND2, PAS-24 
PAS$LOCATE, PAS-27 
Find relative record 

BAS$FIND_RECORD, BAS-20 
FINISH condition, PLI-8, PLI-9 
FIXEDOVERFLOW condition, PLI-7, PLI-47 
FLUSH built-in subroutine 
PLI$FLUSH, PLI-32 
FOR$ BACKS PACE, FOR-8 
FOR$BxTEST, FOR-37 
FOR$CLOSE, FOR—23 
FOR$CVT_x_Ty, FOR-32 
FOR$DATE, FOR—41 
FOR$DATE_T_DS, FOR-41 
FOR$DELETE, FOR-12 
FOR$DELETE_D, FOR-15 
FOR$ENDFILE, FOR-8 FOR$ERRSNS, FOR-43 
FOR$ERRSNS_W, FOR-43 
FOR$EXIT, FOR-43 
FOR$EXIT_W, FOR-43 
FOR$IDATE, FOR—42 
FOR$INI_DES1 _R2, FOR-35 
FOR$INI_DES2—R3, FOR-35 
FOR$INI_DESC_R6, FOR-35 
FOR$INQUIRE, FOR-23 
FOR$IO_d_m, FOR-8 
FOR$IO_END, FOR-8 
FOR$)DATE, FOR—42 
FOR$LGE, FOR—39 
FOR$LGT, FOR-39 
FOR$LLE, FOR-39 
FOR$LLT, FOR-39 
FOR$OPEN, FOR—19 
FOR$PAUSE, FOR-39 
FOR$READ_DF, FOR-15 
FOR$READ_DO, FOR-15 
FOR$READ_DU, FOR-16 
FOR$READ_IF, FOR-16 
FOR$READ_IO, FOR-16 
FOR$READ_KF, FOR-1 3 
FOR$READ_KO, FOR-13 
FOR$READ_KU, FOR-14 
FOR$READ_SF, FOR-9 
FOR$READ_SL, FOR-10 
FOR$READ_SN, FOR-11 


FOR$READ_SO, FOR-9 
FOR$READ_SU, FOR-11 
FOR$REWIND, FOR-8 
FOR$REWRITE_SF, FOR-1 3 
FOR$REWRITE_SO, FOR-13 
FOR$REWRITE_SU, FOR-14 
FOR$SECNDS, FOR-44 
FOR$STOP, FOR-40 
FOR$TIME, FOR-44 
FOR$TIME_T_DS, FOR-44 
FOR$UNDERFLOW_HANDLER, FOR-40 
FOR$UNLOCK, FOR-12 
FOR$WRITE_DF, FOR-15 
FOR$WRITE—DO, FOR-15 
FOR$WRITE_DU, FOR-16 
FOR$WRITE_IF, FOR-16 
FOR$WRITE—IO, FOR-16 
FOR$WRITE_SF, FOR-9 
FOR$WRITE_SL, FOR-10 
FOR$WRITE_SN, FOR-11 
FOR$WRITE_SO, FOR-9 
FOR$WRITE_SU, FOR-11 
FOR$xlBCLR, FOR-37 
FOR$xlBITS, FOR-37 
FOR$xlBSET, FOR-37 
FOR$xlSHFTC, FOR-37 
FOR$xMVBITS, FOR-37 
FOR$_RECIO—OPE, FOR-7 
Format characters, BAS—22 
Format code 

compiled codes, FOR—30t 
decimal width, FOR—29 
default formats, FOR—30t 
exponential width, FOR—29 
field width, FOR—28 
format code byte, FOR—28 
formatted I/O, FOR—27 
Hollerith constants, FOR—30 
repeat count, FOR—28 
size specification byte, FOR—28 
VFE address, FOR-29 
Format code byte, format code, FOR—28 
Format interpreter, BAS—47 
Format processing and conversion, 

BAS—43 to BAS—58, FOR-27 to FOR-33 
Formatted I/O 
format code, FOR—27 
FORTRAN compiled code 
memory layout, FOR—2 
Frame control data, FCD, BAS—6 
Frame support procedures, BAS—59 
FREE statement, PLI—74 
Free virtual memory 
PLI$FREEHEEP, PLI-74 
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FUNCTION statement, BAS-12 
FUNCTIONEND statement, BAS-1 3 
FUNCTIONEXIT statement, BAS-1 3 
Functions, support 
Matrix I/O, BAS—28 


G 

Generate a string 

BAS$STRING, BAS-54 
Generation mode 

entering in PASCAL, PAS$REWRITE2, PAS-29 
Get record from file, PAS$GET, PAS-26 
Get record from nontext file, 
PAS$GET_UNLOCK, PAS-26 
GET statement, PLI-14 to PLI-19 
EDIT option, PLI-1 6 to PLI-1 7 
LIST option, PLI-18 to PLI-19 
STRING option, PLI-75 
GOSUB routines, BAS-7 
GOSUB statement 

BAS$INIT_GOSUB, BAS-60 
GOTO,nonlocal, PLI-71 

H 

Heap storage 

allocation of, BAS-3, FOR-2 
Hollerith constants 
format code, FOR-30 

I 

I/O, overview of PASCAL run-time support, 
PAS-2 

I/O data base, FOR-6 
I/O devices 

unit numbers for, COB—14t 
I/O exceptions 

COBOL handling, COB$IOEXCEPTION, 
COB-48 
I/O list 

element transmission calls, BAS—22, FOR—8 
initialization, BAS—22, FOR—6 
initialization calls, BAS—23 
matrix transmission calls, BAS—27 
termination call, BAS-22, FOR-8 
I/O operations 

common PASCAL errors, PAS—36, PAS—43 


I/O operations, PASCAL 
file-related routines, PAS-31 to PAS-33 
general routines, PAS-23 to PAS-31 
text file routines, PAS-34 to PAS-51 
I/O statements, FOR-6 
auxiliary, BAS—34 to BAS-42, COB-13 to 
COB-15, FOR—19 to FOR-25, PLI-31 to 
PLI-34 

block, ISB, FOR—19 
example, BAS—22, FOR—6 
restarting, BAS-1 7 
Immediate mode code 
BAS$INIT_IOL, BAS—61 
Immediate on-line routines, BAS—7 
INDEX built-in function 
PLI$INDEXBIT, PLI—41 
Indexed I/O 
formatted, FOR-13 
unformatted, FOR-14 

Indexed I/O procedures, BAS-21, FOR-12 to 
FOR-14 
Initialization 

I/O list, BAS-22, FOR-6 
Initialize 

procedure stack frame, PLI-67 
Initialize matrices, BAS-69, BAS-70, BAS-72 
Initialize the user environment 
BAS$RUN_INIT, BAS-66 
Input number 

element transmission calls, BAS—24 
Input text 

element transmission calls, BAS—25 
INQUIRE statement 

FOR$INQUIRE, FOR-23 
Inspection mode 

entering in PASCAL, PAS$RESET2, PAS-28 
Internal I/O procedures, BAS-32, FOR-16 
Invert matrices, BAS—70 
IOSTAT specifier, GEN-55 
ISB, I/O statement block, FOR-19 


K 


KDB, PAS-15. 5ee also Key descriptor 
block 

KEY condition, PLI—7 
Key descriptor block, PASCAL, PAS-15, 
PAS-15f 

fields of, PAS-1 6 

Key information block, OPEN statement, 
BAS-3 6 
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Keywords 
CLOSE, FOR—23 
INQUIRE, FOR—23 
OPEN, FOR—20 

L 


Label vector entry 

uninitialized, signal error, PLI-73 
Language keywords 

RMS file structure, GEN—39t 
Language statements 
RMS functions, GEN—40 
Language support 
data types, GEN-4t 
RMS file structure, GEN—27 
Layout 

procedure stack frame, BAS—6 to BAS—8 
Lexical comparisons, FOR—38 
LIB$AB_ASC_EBC, COB-54 
LIB$AB_ASC_EBC_REV, COB-55 
LIB$AB_CVTPT_0, COB-58 
LIB$AB_CVTPT_U, COB-59 
LIB$AB_CVTTP_0, COB-60 
LIB$AB_CVTTP_U, COB-61 
LIB$AB_CVT_0_U, COB-62 
LIB$AB_CVT_U_0, COB-62 
LIB$AB_EBC_ASC, COB-56 
LIB$AB_EBC_ASC_REV, COB-57 
LIB$ESTABLISH, COB-4, COB-46, FOR-40 
LIB$SIGNAL, BAS—14, COB-46, FOR-3, 
GEN-56 

LIB$SIM_TRAP, FOR—40 

LIB$STOP, BAS—14, COB-46, FOR-3, GEN-56 
Library facility prefix, FOR—3 
LINAGE clause, COB—7 to COB—11 
close last logical page, COB$TERM_LINAGE, 
COB—10 

consistency check, COB$INIT_LINAGE, 
COB-9 

context block, COB—7 
update counter, COB$LINAGE, COB-10 
LINAGE-COUNTER 

COBOL special register, COB—8 
Line limit, setting, PAS$LINELIMIT2, 

PAS-32 

$LOCAL, PSECT, FOR-2 
Logical unit 

block, LUB, FOR—19 
default, FOR—7t 

last OPENed, BAS$STATUS, BAS-39 
number, LUN, BAS-34 


Logical unit number, LUN, GEN—50 
Lookahead 

PAS$LOOKAHEAD, PAS-35 
LUB, logical unit block, FOR—1 9 
LUN, logical unit number, BAS—36, BAS—38, 
GEN-50 


M 


Major procedure, BAS—6 
BAS$END_R8, BAS-63 
BAS$INIT_R8, BAS—61 
Mathematics procedures, PLI-65 to PLI-66 
Matrix addition 

BAS$MAT_ADD, BAS-68 
Matrix copy 

BAS$MAT_ASSIGN, BAS-69 
Matrix I/O 

support functions, BAS—28 
Matrix initialization 

BAS$MAT_IDN, BAS-69 
BAS$MAT_INIT, BAS-70 
BAS$MAT_NULL, BAS-72 
Matrix inversion, BAS—75 
BAS$MAT_INV, BAS-70 
Matrix manipulation procedures, BAS—67 to 
BAS—75 

Matrix multiplication 

BAS$MAT_MUL, BAS-71 
BAS$MAT_SCA_MUL, BAS-73 
Matrix redimensioning 

BAS$MAT_REDIM, BAS-72 
Matrix subtraction 

BAS$MAT_SUB, BAS-74 
Matrix transmission calls 
I/O list, BAS—27 
input, BAS$IN_MAT, BAS-27 
output, BAS$OUT_MAT_f, BAS-28 
Matrix transposition 

BAS$MAT_TRN, BAS-74 
Memory layout 

BASIC compiled code, BAS-3 
FORTRAN compiled code, FOR-2 
Memory management 

overview of PASCAL support procedures, 
PAS-3 

Messages for errors signaled by PAS$HANDLER, 
PAS—9t 

MIL-STD 1753 functions 
bit operations, FOR—37 
Mount next volume 
PLI$NXTVOL, PLI-33 
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Move operation 

PLI$MOVB!T, PLI-39 
MOVTUC, BAS—77 
Multiple-precision division 
PLI$DIV_PK_LONG, PLI-65 
PLI$DIV_PK_SHORT, PLI-65 
Multiply 

CIT data type, COB$MULTI, COB-36 
quadwords, COB$MULQ_R8, COB-41 
Multiply matrices, BAS-71, BAS-73 
Multiply numeric strings 
BAS$PROD, BAS—51 

N 


NAM, name block, GEN—50 
Name block, NAM, GEN—50 
NAMELIST controlled 
sequential I/O, FOR—11 
NEXTVOLUME built-in subroutine 
PLI$NXTVOL, PLI-33 
Nonlocal 

GOTO, GEN-58.1, PAS-75, PLI-71 
RETURN, PLI-72 
NOT operation 

PLI$NOTBIT, PLI-39 

O 


Odd number 

test for, PAS$ODD, PAS-71 
ON ERROR GO BACK, GEN-58 
ON ERROR GOTO, GEN-54 
ON ERROR statement 

BAS$INIT_ONERR, BAS-62 
ON-unit, GEN-56, PLI-7, PLI-8 
ONARGSLIST built-in function, PLI-70 
ONCODE built-in function, PLI-70 
ONFILE built-in function, PLI-70 
ONKEY built-in function, PLI-69 
$OPEN, FOR—19 

OPEN procedure, PASCAL, PAS-1 7 to PAS-20 
defaults, PAS-1 7f 

opening INPUT and OUTPUT, PAS-1 7 
optional parameters, PAS-19t 
OPEN statement, PLI-12 
BAS$OPEN, BAS—34 
FOR$OPEN, FOR—19 

Option block, OPEN statement, BAS—34 to 
BAS—36 

OPTIONS MAIN procedure 
PLI$OPTIONS_MAIN, PLI-67 


OR operation 

PLI$ORBIT, PLI-38 
Output number 

element transmission calls, BAS—26 
Output suppression 
BAS$CTRLO, BAS—42 
Output text 

element transmission calls, BAS—27 
Output unsuppression 
BAS$RCTRLO, BAS-42 
OVERFLOW condition, PLI-7 


P 

Page eject 

write to text file, PAS$PAGE2, PAS-36 
Parameter characteristics, FOR—3 
Parameter passing mechanisms, COB—4, 

GEN-1 

BASIC support, GEN-2 
COBOL support, GEN-2 
data types, GEN-3 
FORTRAN support, GEN-2 
in PASCAL, PAS-3 
PASCAL support, GEN-2.1 
passing parameters to PASCAL routines, 
PAS-4 

PL/I support, GEN-3 
PAS$ABS_L, PAS-69 
PAS$BIN, PAS-72 
PAS$CARD2, PAS-70 
PAS$CLOCK2, PAS-76 
PAS$CLOSE2, PAS-21 

PAS$CLOSE_LOCAI_R3, PAS-22 

PAS$CONVERT_l_BU, PAS-64 

PAS$CONVERT_x_F, PAS-65 
PAS$CONVERT_x_H, PAS-67 
PAS$CONVERT_x_L, PAS-68 
PAS$CONVERT_x_y, PAS-66 
PAS$DATE, PAS-76 
PAS$DELETE, PAS-23 
PAS$DISPOSE2, PAS-77 
PAS$EOF2, PAS-31 
PAS$EOLN2, PAS-35 
PAS$EXPO_x, PAS-70 
PAS$FAB, PAS-20 
PAS$FIND2, PAS-24 
PAS$FINDK, PAS-24 
allowable key types, PAS-25t 
PAS$GET, PAS-26 
PAS$GET__UNLOCK, PAS-26 
PAS$GOTO, PAS-75 
PAS$HALT, PAS-76 
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PAS$HANDLER, PAS-8 to PAS-9 
codes and messages for signaled errors, 
PAS—9t 

PAS$HEX, PAS-73 
PAS$LINELIMIT2, PAS-32 
PASSLOCATE, PAS-27 
PAS$LOOK_AHEAD, PAS-35 
PAS$MARK2, PAS-78 
PAS$NEW2, PAS-77 
PAS$OCT, PAS-73 
PAS$ODD, PAS-71 
PAS$OPEN2, PAS-18 
PAS$PAGE2, PAS-36 
PAS$PUT, PAS-27 
PAS$RAB, PAS-21 
PAS$READLN2, PAS-42 
PAS$READV_BOOLEAN, PAS-53 
PAS$READV_CHAR, PAS-53 
PAS$READV_ENUMERATED, PAS-53 
PAS$READV_INTEGER, PAS-54 

PAS$READV_REAI_x, PAS-54 

PASS READ V_STRING, PAS-55 
PAS$READV_UNSIGNED, PAS-55 
PAS$READV_VARYING, PAS-56 
PAS$READ_BOOLEAN, PAS-37 
PAS$READ_CHAR, PAS-37 
PAS$READ_ENUMERATED, PAS-38 
PASSREAD_INTEGER, PAS-39 

PASS READ—REAI_x, PAS-39 

PAS$READ_STRING, PAS-40 
PAS$READ_STRING1, PAS-40 
PAS$READ_UNSIGNED, PAS-41 
PASSREAD-VARYING, PAS-42 
PASSRELEASE2, PAS-78 
PASSRESET2, PAS-28 
PASSRESETK, PAS-28 
PASSREWRITE2, PAS-29 
PASSROUND—X—LU, PAS-68 
PAS$SQR_x, PAS-71 
PASSSTATUS, PAS-32 
PASSTIME, PAS-77 
PASSTRUNCATE, PAS-29 
PASSTRUNC—x_LU, PAS-69 
PASSUFB, PAS-33 
PASSUNDEFINED-X, PAS-72 
PASSUNLOCK, PAS-30 
PASSUPDATE, PAS-30 
PASSWRITE-VARYING, PAS-51 
PASSWRITELN2, PAS-51 
PASSWRITEV-BOOLEAN, PAS-57 
PAS$WRITEV_CHAR, PAS-58 
PAS$WRITEV_ENUMERATED, PAS-58 
PAS$WRITEV_HEX, PAS-59 
PASSWRITEV-INTEGER, PAS-59 


PASSWRITEV_OCT, PAS-60 
PAS$WRITEV_REALE_x, PAS-60 
PAS$WRITEV_REALF_x, PAS-61 
PAS$WRITEV_STRING, PAS-62 
PAS$WRITEV_UNSIGNED, PAS-62 
PAS$WRITEV_VARYING, PAS-63 
PAS$WRITE_BIN, PAS-43 
PAS$WRITE_BOOLEAN, PAS-44 
PAS$WRITE_CHAR, PAS-44 
PAS$WRITE_ENUMERATED, PAS-45 
PAS$WRITE_HEX, PAS-46 
PAS$WRITE_INTEGER, PAS-47 
PAS$WRITE_OCT, PAS-47 
PAS$WRITE_REALE_x, PAS-48 
PAS$WRITE_REALF_x, PAS-48 
PAS$WRITE_REALF_x1, PAS-49 
PAS$WRITE_STRING, PAS-50 
PAS$WRITE_UNSIGNED, PAS-50 
PASCAL 

calling from other languages, PAS—4 
calling non-PASCAL routines from, PAS—3 
declaring external routines from, PAS—3 
enumerated type descriptor, PAS—38, 

PAS-45 

error handling by support procedures, 

PAS-4 to PAS-9 
file descriptor, PAS—13 
file variable, PAS—11. See also PFV 
key descriptor block, PAS—15f, PAS—15 
program control routines, PAS—75 to 
PAS-76 

signal arguments list for file errors, 

PAS-5 

signal arguments list for PASCAL nonfile errors, 
PAS-6 

special-purpose conversion routines, 

PAS-64 to PAS-74, PAS-79 
text file input routines, PAS—36 to 
PAS-43 

text file output routines, PAS—43 to 
PAS-51 

PASCAL compiled code 
errors detected by, PAS—7 to PAS—8 
PASCAL run-time support 
overview, PAS—1 

Passing mechanisms, BAS—22. See also 
parameter passing mechanisms 
Passing parameters. See parameter 
passing mechanisms 
PAUSE statement 

FOR$PAUSE, FOR—39 
$PDATA, PSECT, BAS-4, FOR-2 
PFD, PAS—13. See also File descriptor, 

PASCAL 
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PFV, PAS-11 

fields of, PAS-11 to PAS-12 
for INPUT and OUTPUT, PAS-16 
layout of, PAS—11f 
PLI$ABITABIT_R6, PLI-64 
PLI$ABITBIT_R6, PLI-64 
PLI$ABITCHAR_R6, PLI-59 
PLI$ABITFIXB_R6, PLI-50 
PLI$ABITFIXD_R6, PLI-50 
PLI$ABITFLTB_R6, PLI-50 
PLI$ABITFLTD_R6, PLI-50 
PLI$ABITPIC_R6, PLI-54 
PLI$ABITVCHA_R6, PLI-59 
PLI$ALOCHEEP, PLI-74 
PLI$ANDBIT, PLI-36 
PLI$BITABIT_R6, PLI-64 
PLI$BITBIT_R6, PLI-64 
PLI$BITCHAR_R6, PLI-59 
PLI$BITFIXB_R6, PLI-50 
PLI$BITFIXD_R6, PLI-50 
PLI$BITFLTB_R6, PLI-50 
PLI$BITFLTD_R6, PLI-50 
PLI$BITPIC_R6, PLI-54 
PLI$BITVCHA_R6, PLI-59 
PLI$BOOLBIT, PLI-37 
PLI$BOUND_CHECK, PLI-71 
PLI$CATBIT, PLI—40 
PLI$CHARABIT_R6, PLI-64 
PLI$CHARBIT_R6, PLI-63 
PLI$CHARCHAR_R6, PLI-60 
PLI$CHARFIXB_R6, PLI—51 
PLI$CHARFIXD_R6, PLI—51 
PLI$CHARFLTB_R6, PLI—51 
PLI$CHARFLTD_R6, PLI—51 
PLI$CHARPIC_R6, PLI-54 
PLI$CHARVCHA_R6, PLI-60 
PLI$CLOSE, PLI—1 3 
PLI$CMPBIT, PLI—40 
PLI$CND_HND, PLI—68 
PLI$CVT_FR_PIC, PLI—53 
PLI$CVT_TO_PIC, PLI—52 
PLI$DATE, PLI—73 
PLI$DEF_HND, PLI-68 
PLI$DELETE, PLI—29 
PLI$DISPLAY, PLI—31 
PLI$DIV_PK_LONG, PLI—65 
PLI$DIV_PK_SHORT, PLI-65 
PLI$EXTEND, PLI—32 
PLI$FIXBABIT_R6, PLI-62 
PLI$FIXBBIT_R6, PLI—61 
PLI$FIXBCHAR_R6, PLI-56 
PLI$FIXBFIXB_R6, PLI-47 
PLI$FIXBFIXD_R6, PLI-47 
PLI$FIXBFLTB_R6, PLI-47 


PLI$FIXBFLTD_R6, PLI-48 
PLI$FIXBPIC_R6, PLI-54 
PLI$FIXBVCHA_R6, PLI-56 
PLI$FIXDABIT_R6, PLI-62 
PLI$FIXDBIT_R6, PLI—61 
PLI$FIXDCHAR_R6, PLI-56 
PLI$FIXDFIXB_R6, PLI-47 
PLI$FIXDFIXD_R6, PLI-47 
PLI$FIXDFLTB_R6, PLI-47 
PLI$FIXDFLTD_R6, PLI-48 
PLI$FIXDPIC_R6, PLI-54 
PLI$FIXDVCHA_R6, PLI-56 
PLI$FLTBABIT_R6, PLI-62 
PLI$FLTBBIT_R6, PLI-62 
PLI$FLTBCHAR_R6, PLI-58 
PLI$FLTBFIXB_R6, PLI-47 
PLI$FLTBFIXD_R6, PLI-47 
PLI$FLTBFLTB_R6, PLI-48 
PLI$FLTBFLTD_R6, PLI-48 
PLI$FLTBPIC_R6, PLI-54 
PLI$FLTBVCHA_R6, PLI-58 
PLI$FLTDABIT_R6, PLI-62 
PLI$FLTDBIT_R6, PLI-62 
PLI$FLTDCHAR_R6, PLI-58 
PLI$FLTDFIXB_R6, PLI-47 
PLI$FLTDFIXD_R6, PLI-48 
PLI$FLTDFLTB_R6, PLI-48 
PLI$FLTDFLTD_R6, PLI-48 
PLI$FLTDPIC_R6, PLI-54 
PLI$FLTDVCHA_R6, PLI-58 
PLI$FLUSH, PLI—32 
PLI$FREEHEEP, PLI-74 
PLI$GETEABIT_R6, PLI—1 7 
PLI$GETEBIT_R6, PLI—1 7 
PLI$GETECHAR_R6, PLI—1 7 
PLI$GETEDITITEM module, PLI—16 to PLI—1 7 
parameters for routines, PLI—16t 
PLI$GETEFIXB_R6, PLI—1 7 
PLI$GETEFIXD_R6, PLI—1 7 
PLI$GETEFLTB_R6, PLI—1 7 
PLI$GETEFLTD_R6, PLI—1 7 
PLI$GETEPIC_R6, PLI—1 7 
PLI$GETEVCHA_R6, PLI—1 7 
PLI$GETFILE_R6, PLI—14 to PLI—16 
parameters for, PLI—15t 
PLI$GETLABIT_R6, PLI—1 8 
PLI$GETLBIT_R6, PLI—18 
PLI$GETLCHAR_R6, PLI—18 
PLI$GETLFIXB_R6, PLI—1 8 
PLI$GETLFIXD_R6, PLI—18 
PLI$GETLFLTB_R6, PLI—18 
PLI$GETLFLTD_R6, PLI—18 
PLI$GETLISTITEM module, PLI—18 to PLI—19 
parameters for routines, PLI—18t 
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PLI$GETLPIC_R6, PLI-18 
PLI$GETLVCHA_R6, PLI-18 
PLI$GETSTRING_R6, PLI-75 
PLI$INDEXBIT, PLI—41 
PLI$IO_ERROR, PLI—69 
PLI$MOVBIT, PLI—39 
PLI$MOVTRANCHAR, PLI-42 
PLI$NONLOC_GOTO, PLI—71 
PLI$NONLOC_RET, PLI—72 
PLI$NOTBIT, PLI—39 
PLI$NXTVOL, PLI—33 
PLI$ONCNDARGS, PLI-70 
PLI$ONCODE, PLI-70 
PLI$ONFILE, PLI-70 
PLI$ONKEY, PLI—69 
PLI$OPEN, PLI—12 
PLI$OPTIONS_MAIN, PLI—67 
PLI$OPTMAIN_RET, PLI—73 
PLI$ORBIT, PLI—38 
PLI$PICABIT_R6, PLI—63 
PLI$PICBIT_R6, PLI—63 
PLI$PICCHAR_R6, PLI—58 
PLI$PICFIXB_R6, PLI—49 
PLI$PICFIXD_R6, PLI—49 
PLI$PICFLTB_R6, PLI-49 
PLI$PICFLTD_R6, PLI-49 
PLI$PICPIC_R6, PLI—54 
PLI$PICVCHA_R6, PLI—59 
PLI$PUTEBIT_R6, PLI—22 
PLI$PUTECHAR_R6, PLI—22 
PLI$PUTEDITITEM module, PLI—22 
parameters for routines, PLI—22t 
PLI$PUTEFIXB_R6, PLI—22 
PLI$PUTEFIXD_R6, PLI—22 
PLI$PUTEFLTB_R6, PLI—22 
PLI$PUTEFLTD_R6, PLI—22 
PLI$PUTEPIC_R6, PLI—22 
PLI$PUTEVCHA_R6, PLI—22 
PLI$PUTFILE_R6, PLI—19 to PLI—21 
parameters for, PLI—211 
PLI$PUTLABIT_R6, PLI-24 
PLI$PUTLBIT_R6, PLI-24 
PLI$PUTLCHAR_R6, PLI-24 
PLI$PUTLFIXB_R6, PLI-24 
PLI$PUTLFIXD_R6, PLI-24 
PLI$PUTLFLTB_R6, PLI-24 
PLI$PUTLFLTD_R6, PLI-24 
PLI$PUTLISTITEM module, PLI—23 
parameters for routines, PLI—23t 
PLI$PUTLPIC_R6, PLI-24 
PLI$PUTLVCHA_R6, PLI-24 
PLI$PUTSTRING_R6, PLI-75 
PLI$PUT_END_R6, PLI-25 
PLI$READ, PLI-25 


PLI$RESIGNAL, PLI—71 
PLI$REWIND, PLI—33 
PLI$REWRITE, PLI—28 
PLI$RT_SUBSCRIP, PLI—73 
PLI$SPACEBLOCK, PLI-34 
PLI$STOP_PROG, PLI—67 
PLI$TIME, PLI—74 
PLI$VALID_PIC, PLI—53 
PLI$VCHAABIT_R6, PLI-64 
PLI$VCHABIT_R6, PLI-64 
PLI$VCHACHAR_R6, PLI-60 
PLI$VCHAFIXB_R6, PLI—51 
PLI$VCHAFIXD_R6, PLI—51 
PLI$VCHAFLTB_R6, PLI—51 
PLI$VCHAFLTD_R6, PLI—51 
PLI$VCHAPIC_R6, PLI—54 
PLI$VCHAVCHA_R6, PLI-60 
PLI$VERIFY, PLI—43 
PLI$WRITE, PLI—27 
Position to start of file, PAS$RESET2, 

PAS-28 

Position to start of file for writing, 
PAS$REWRITE2, PAS-29 

Position to start of index, PAS$RESETK, 
PAS-28 

PRINT USING statement, BAS—47 
Procedure calling sequence. See 
calling sequence 
Procedure parameter forms. See 
parameter forms 

Procedure return status codes. See 
return status codes 

Procedure stack frame, BAS—4f, BAS—6 
initialize, PLI—67 
layout, BAS—6 to BAS—8 
Procedures 

activation, BAS—3 

compatibility, BAS—79 to BAS—85 

compiled-code support, BAS—59, FOR—35 

direct I/O, FOR—14 

exponentiation, BAS—56 

file status, BAS—37 

indexed I/O, BAS-21, FOR-12 

initialization, BAS—3 

internal I/O, BAS-32, FOR-16 

random I/O, BAS—20 

sequential I/O, BAS—19, FOR—8 

string manipulation, BAS—51 

terminal-format I/O, BAS—22 

terminal functions, BAS—39 

virtual I/O, BAS—29 

PROGRAM COLLATING SEQUENCE clause, 
COB-53 
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Program control 

overview of PASCAL support procedures, 
PAS-2 

Program units , supported, BAS-2t 
Program units, supported by FORTRAN, 
FOR—2t 

PSECT $ARRAY, BAS-5 
PSECT $BLANK, FOR-2 
PSECT $CODE, BAS—4, FOR-2 
PSECT $LOCAL, FOR-2 
PSECT $PDATA, BAS-4, FOR-2 
PSECT COM/MAP, BAS-5 
Put component to file, PAS$PUT, PAS—27 
PUT statement, PLI-19 to PLI-24 
EDIT option, PLI-22 to PLI-23 
LIST option, PLI-23 to PLI-24 
STRING option, PLI-75 


R 

RAB, GEN-50 

fields set by OPEN, GEN-48t to GEN-49t 
record access block, FOR—19, GEN—43 
Random I/O procedures, BAS-20 to BAS-21 
Random number 

generator, BAS$RND_F_R1, BAS-67 
initialization, BAS$RANDOMIZE, BAS—66 
Read array 

BAS$MAT_INPUT, BAS-23 
Read direct 

formatted, FOR$READ_DF, FOR-1 5 
formatted, FOR$READ_DO, FOR—15 
unformatted, FOR$READ_DU, FOR-16 
Read from PASCAL character string, PAS-52 
read Boolean value, PAS—53 
read character, PAS—53 
read enumerated-type value, PAS-53 
read fixed-length string, PAS—55 
read floating-point value, PAS-54 
read integer, PAS-54 
read unsigned integer, PAS—55 
read varying-length string, PAS—56 
Read from PASCAL text file 

position to start of next line, PAS-42 

read Boolean value, PAS—37 

read character, PAS—37 

read enumerated-type value, PAS—38 

read fixed-length string, PAS—40 

read floating-point value, PAS-39 

read integer, PAS—39 

read unsigned integer, PAS—41 

read VI string, PAS—40 

read varying-length string, PAS-42 


Read indexed 

BAS$GET_KEY, BAS-21 
formatted, FOR$READ_KF, FOR-1 3 
formatted, FOR$READ_KO, FOR-1 3 
unformatted, FOR$READ_KU, FOR-14 
Read internal 

BAS$READ, BAS—32 
formatted, FOR$READ_IF, FOR-16 
formatted, FOR$READ_IO, FOR-16 
Read internal array 

BAS$MAT_READ, BAS-32 
Read list 

BAS$INPUT, BAS-23 
Read next line 

with terminator, BAS$INPUT_LINE, BAS-23 
without terminator, BAS$LINPUT, BAS-23 
Read record 

PLI$READ, PLI-25 
Read relative 

BAS$GET_RECORD, BAS-21 
Read sequential 
BAS$GET, BAS—19 
formatted, FOR$READ_SF, FOR-9 
formatted, FOR$READ_SO, FOR-9 
list-directed, FOR$READ_SL, FOR-10 
unformatted, FOR$READ_SU, FOR—11 
READ statement 
PLI$READ, PLI-25 
Read string array 

BAS$MAT_LINPUT, BAS-23 
Reading external switches, COB—51 
Record access block, RAB, FOR-19, GEN-43 
PAS$RAB, PAS-21 
Record access modes 
BASIC support, GEN-32 
COBOL support, GEN-33 
FORTRAN support, GEN-35 
PASCAL support, GEN-36.1 
PL/I support, GEN-37 
RMS file structure, GEN—29 
Record attributes 

BASIC support, GEN-32 
COBOL support, GEN-34 
FORTRAN support, GEN-36 
PASCAL support, GEN-36.1 
PL/I support, GEN-38 
RMS file structure, GEN—30 
Record formats 

BASIC support, GEN-32 
COBOL support, GEN-34 
FORTRAN support, GEN-35 
PASCAL support, GEN-36.1 
PL/I support, GEN-37 
RMS file structure, GEN—29 
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Record I/O procedures, BAS-19 to BAS—21 

Record Management Services, VAX-11 (RMS), 
PLI-31 

Recursion, FOR-7 
Redimension matrices, BAS-72 
Register 

uses, BAS—5 
Register usage 

conversion from CIT, COB-27t 
conversion from D_floating, COB-32t 
conversion from F_floating, COB—311 
conversion from packed decimal, COB—33t 
conversion from quadword, COB-30t 
conversion to CIT, COB-25t 
Relational operators 
PLI$CMPBIT, PLI—40 
Remove DEF* statement frame 
BAS$END_DFS_R8, BAS-85 
Repeat count 
format code, FOR-28 
Reserved operand 

test for, PAS$UNDEFINED_x, PAS-72 
RESIGNAL built-in subroutine, PLI—71 
RESIGNAL, PL/I subroutine, GEN-58 
Resignaling, COB-46 
in BASIC, GEN-58 
in COBOL, GEN-58 
error actions, GEN—53 
in FORTRAN, GEN-58 
in PASCAL, GEN-58 
in PL/I, GEN-58, PLI—9 
RESIGNAL built-in subroutine, PLI—71 
RESIGNAL PL/I subroutine, PLI—8 
Restore data pointer 

BAS$RESTORE_DAT, BAS-33 
RESUME, GEN-58.1 
Return a subfield 

bit operations, FOR—37 
Return buffer size 

BAS$BUFSIZ, BAS—38 
Return control to VMS 
FOR$EXIT, FOR—43 
Return date 

BAS$DATE_T, BAS-64 
Return from GOSUB 

BAS$END_GSB_R8, BAS-64 
Return last error data 
FOR$ERRSNS, FOR-43 
RETURN, nonlocal, PLI—72 
Return relative position of substring 
BAS$POS, BAS—55 
RETURN statement 

PLI$OPTMAIN_RET, PLI—73 


Return status symbols. See return 
status codes 
Return system date 
COB$ACC_DAxx, COB-44 
FOR$DATE, FOR—41 
FOR$IDATE, FOR—42 
FOR$JDATE, FOR—42 
Return system time 
COB$ACC_TIME, COB-45 
FOR$SECNDS, FOR-44 
FOR$TIME, FOR-44 
Return values, COB-4 
Rewind 

BAS$RESTORE, BAS-20, BAS-21 
FOR$REWIND, FOR-8 
PLI$REWIND, PLI—33 
REWIND built-in subroutine 
PLI$REWIND, PLI—33 
Rewind indexed 

BAS$RESTORE_KEY, BAS-21 
Rewrite current record 

unformatted, FOR$REWRITE_SU, FOR-14 
Rewrite record 

PLI$REWRITE, PLI—28 
REWRITE statement 
PLI$REWRITE, PLI—28 
RMS file-handling services, PLI—31 to 
PLI—34 

RMS file structure 
file characteristics, GEN—27 
file organizations, GEN-28 
language keywords, GEN—39t 
language support, GEN-27 
record access modes, GEN—29 
record attributes, GEN-30 
record formats, GEN-29 
RMS functions 

BASIC support, GEN-40t 
COBOL support, GEN-411 
FORTRAN support, GEN-411 
language statements, GEN—40 
PASCAL support, GEN-42.It 
Round floating-point number to unsigned integer 
PAS$ROUND_x_LU, PAS-68 
Round or truncate numeric string 
BAS$PLACE, BAS—51 
Run-time exceptions 

signaled by PASCAL compiled code, PAS—9t 

S 

Scalar functions 

overview of PASCAL support procedures, 
PAS-2 
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Scale a D_floating value 
BAS$SCALE_D_R1, BAS-76 
Scaled data items 
data types, COB—20t 
Scratch file, PAS$REWRITE2, PAS-29 
Sequential I/O 
formatted, FOR-9 
list-directed, FOR-IO 
NAMELIST controlled, FOR-11 
unformatted, FOR—11 

Sequential I/O procedures, BAS-19 to BAS-20, 
FOR—8 to FOR-1 2 
Sets, PASCAL 

return number of components in, PAS$CARD2, 
PAS-70 

Signal arguments list 

for errors detected by PASCAL compiled code, 
PAS—7f 

for PASCAL file I/O errors, PAS-5f 
for PASCAL nonfile errors, PAS—6f 
Signaling 

in BASIC, GEN-56 

in COBOL, GEN-57 

error, PLI—7 

error actions, GEN—53 

in FORTRAN, GEN-57 

I/O errors, COB-3 

I/O errors, PLI$IO_ERROR, PLI-69 

in PASCAL, GEN-57, PAS-6 

in PL/I, GEN-57 

run-time errors, COB$ERROR, COB-45 
SS$_UNWIND condition, 

PLI$NONLOC_GOTO, PLI—71 
SS$_UNWIND condition, PLI$NONLOC_RET, 
PLI—72 

subscript out of range, PLI$BOUND_CHECK, 
PLI—71 

uninitialized label vector entry, 
PLI$RT_SUBSCRIP, PLI—73 
by user-written handlers in PASCAL, 

PAS-6 

Signaling errors 

detected by compiled code, COB$ERROR, 
COB-46 

Size specification byte, format code, 

FOR—28 
SLEEP statement 

BAS$SLEEP, BAS—41 
Space file 

PLI$SPACEBLOCK, PLI-34 
SPACEBLOCK built-in subroutine 
PLI$SPACEBLOCK, PLI-34 
SPANC instruction, COB—63 
SPECIAL-NAMES paragraph, COB-53 


Square a value, PAS$SQR_x, PAS-71 
SS$_RESIGNAL, condition value, GEN-58 
SS$_ROPRAND, COB-46 
SS$_UNWIND, condition value, GEN-58.1 

Stack frame, procedure, BAS—3 
Stack, software simulated, FOR—6 
Stack storage 

allocation of, BAS-2, FOR-2 
Static storage 

allocation of, BAS-2, FOR-2 
Status of file 

testing in PASCAL, PAS$STATUS, PAS-32 
Stop PL/I program 

PLI$STOP_PROG, PLI—67 
STOP statement 

COB$PAUSE, COB-52 
FOR$STOP, FOR—40 
Stopping the program, PLI—8 
Store array element 

BAS$STORE_BFA, BAS-30 
Store array number 

BAS$STO_FA_x_R8, BAS-30 
Store string array element 
BAS$STO_FA_RDX, BAS-30 
STR$COPY, BAS—47, BAS-77 
STR$FREE1, BAS-77 
STR$GET 1, BAS—47, BAS-77 
Stream I/O, PLI—14 
String comparisons, FOR-38 
String data types 

BASIC support, GEN-7t 
COBOL support, GEN-1 It 
FORTRAN support, GEN-1 5t 
PASCAL support, GEN-1 6.3t 
PL/I support, GEN-19t 
String I/O, PLI—5, PLI—75 to PLI-76 
String manipulation procedures, BAS-51 to 
BAS—55, PLI—3, PLI—35 to PLI-44 
bit, PLI—35 to PLI—42 
character, PLI-42 to PLI-44 
SUB statement, BAS-12 
SUBEND statement, BAS-12 
SUBEXIT statement, BAS-12 
Subroutines 

writing COBOL, COB-3 
writing PL/I, PLI—5 
Subtract 

CIT data type, COB$SUBI, COB-35 
Subtract matrices, BAS—74 
Subtract numeric strings 
BASSDIF, BAS-51 
Support procedures 
summary, COB—2 
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Switches 

clearing external, COB$SET_SWITCH, 

COB-51 

reading external, COB$SWITCH, COB—51 
setting external, COB$SET_SWITCH, COB-51 
SYS function, RSTS 
BAS$SYS, BAS—82 
SYS$CONNECT, GEN-50 
SYS$CREATE, GEN-50 
SYS$OPEN, GEN-50 
SYS$OUTPUT, COB-52 
SYS$UNWIND, system service, GEN-58.1 
System service 
$CLOSE, COB—10 
$EXIT, PLI-8 

T 

Terminal-format I/O procedures, BAS—22 to 
BAS—29 

Terminal function procedures, BAS—39 to 
BAS—42 

Terminate external PL/I procedure, PLI—6 
Termination call 

I/O list, BAS—22, FOR—8 
Text file I/O 

input routines, PASCAL, PAS—36 to PAS—43 
output routines, PASCAL, PAS—43 to PAS—51 
overview of PASCAL run-time support, 

PAS-2 

TIME function 

BAS$TIME_F, BAS—65 
TIMES function 

BAS$TIME_T, BAS—65 
TRANSLATE built-in function 
PLISMOVTRANCHAR, PLI-42 
Translate characters, BAS—77 
Translation tables, COB-53 to COB-65 
ASCII to EBCDIC, COB—54t 
ASCII to EBCDIC, reversible, COB-55t 
COBOL class test table, COB-64t 
CVTPT instruction, COB-58t, COB-59t 
CVTTP instruction, COB-60t, COB-611 
EBCDIC to ASCII, COB—56t 
EBCDIC to ASCII, reversible, COB-57t 
MOVC3 instruction, COB—63t 
MOVTC instruction, COB-62t 
nondigits to zeros, COB—65t 
numeric edited data, COB—65t 
packed decimal to trailing overpunch numeric, 
COB—58t 

packed decimal to unsigned numeric, 

COB—59t 

SPANC instruction, COB-64t 


SPANC instruction (Cont.) 

trailing overpunch numeric to packed decimal, 
COB—60t 

trailing overpunch numeric to unsigned 
numeric, COB—62t 
unsigned numeric to packed decimal, 

COB-611 

unsigned numeric to trailing overpunch 
numeric, COB—63t 
Transpose matrices, BAS—74 
Trim trailing tabs and spaces 
BAS$TRM, BAS—49 

Truncate file, PAS$TRUNCATE, PAS-29 
Truncate floating-point number to unsigned 
integer 

PAS$TRUNC_x_LU, PAS-69 
Type-ahead suppression 

BAS$CANTYPAHEAD, BAS-40 

U 

UNDEFINEDFILE condition, PLI—7 
UNDERFLOW condition, PLI—7 
Uninitialized label vector 
signal error, PLI$RT_SUBSCRIP, PLI—73 
Unit numbers 
for I/O devices, COB-14t 
Unlock all records 
BASSFREE, BAS—37 
Unlock current record 
BAS$UNLOCK, BAS-37 

Unlock file component, PAS$UNLOCK, PAS-30 
Unlock record 

FOR$UNLOCK, FOR-12 
Unsealed data items 
data types, COB-18t 
Unwinding, PLI-8 
in BASIC, GEN-58.1 
in COBOL, GEN-58.1 
error actions, GEN—54 
in FORTRAN, GEN-58.1 
in PASCAL, GEN-58.1 
in PL/I, GEN-58.1 
PLI$NONLOC_GOTO, PLI—71 
PLI$NONLOC_RET, PLI-72 
Update record 

BAS$UPDATE, BAS-20, BAS-21 
PAS$UPDATE, PAS-30 
USAGE clause 
data types, COB-18 
USE procedure, COB—45, GEN—55 
USE statement, COB-47 
USEROPEN keyword 
OPEN statement, GEN-50 
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USEROPEN routine 
MACRO example, GEN-51 
restrictions, GEN—51 
USER-ACTION parameter 
with CLOSE, GEN-52.1 
with OPEN procedure, GEN-52 
PASCAL, GEN-52 

Utility procedures, PLI—71 to PLI—73 


V 

%VAL, FOR—3 
Validate picture data 
PLI$VALID_PIC, PLI—53 
VAX—11 Condition Handling Facility, CHF, 

BAS—14 

VAX-11 Condition Handling Standard, GEN-53 
VAX-11 Modular Programming Standard, COB-4 
VAX-11 Procedure Calling Standard, GEN-1 
VAX-11 Record Management Services, PLI—31 
VAXCONDITION, GEN-56 
VAXCONDITION condition, PLI-8, PLI—9 
VERIFY built-in function 
PLI$VERIFY, PLI—43 
VFE address 

format code, FOR—29 
Virtual array files, BAS-29 
Virtual I/O procedures, BAS—29 to BAS-32 
Virtual memory 
allocate, PLI—5 
free, PLI—5 

Virtual memory, allocate 
PLI$ALOCHEEP, PLI-74 
Virtual memory,free 
PLI$FREEHEEP, PLI-74 


W 

WAIT statement 

BAS$WAIT, BAS—42 
Write array 

BAS$MAT_PRINT, BAS-23 
Write direct 

formatted, FOR$WRITE_DF, FOR-15 
formatted, FOR$WRITE_DO, FOR-15 
unformatted, FOR$WRITE_DU, FOR-16 
Write indexed 

formatted, FOR$REWRITE_SF, FOR-13 
formatted, FOR$REWRITE_SO, FOR-13 
Write internal 

formatted, FOR$WRITE_IF, FOR-16 
formatted, FOR$WRITE_IO, FOR-16 


Write list 

BAS$PRINT, BAS-23 
formatted, BAS$PRINT_USING, BAS-23 
Write record 

PLI$WRITE, PLI—27 
Write relative 

BAS$PUT_RECORD, BAS-21 
Write sequential 
BAS$PUT, BAS—20 
formatted, FOR$WRITE_SF, FOR-9 
formatted, FOR$WRITE_SO, FOR-9 
list-directed, FOR$WRITE_SL, FOR-10 
unformatted, FOR$WRITE_SU, FOR-11 
WRITE statement 
PLI$WRITE, PLI—27 

Write to FISCAL character string, PAS-56 
write binary value, PAS—56 
write Boolean value, PAS-57 
write character, PAS-58 
write enumerated-type value, PAS—58 
write fixed-length string, PAS—62 
write floating-point number in E format, 
PAS-60 

write floating-point number in F format, 
PAS-61 

write hexadecimal value, PAS—59 
write integer, PAS-59 
write octal value, PAS—60 
write unsigned integer, PAS—62 
write varying-length string, PAS—63 
Write to PASCAL text file 

common error messages, PAS—43 
write binary value, PAS—43 
write Boolean value, PAS-44 
write buffer and start new record, 
PAS-51 

write character, PAS-44 
write enumerated-type value, PAS-45 
write fixed-length string, PAS—50 
write floating-point value in E format, 
PAS-—48 

write floating-point value in F format, 
PAS-48 

write hexadecimal value, PAS—46 
write integer, PAS-47 
write octal value, PAS—47 
write unsigned integer, PAS—50 
write VI floating-point value, PAS—49 
write varying-length string, PAS—51 
WRITEV..BIN, PAS-56 
Writing 

COBOL subroutines, COB-3 
PL/I subroutines, PLI—5 
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XAB, GEN-50 

extended attribute block, GEN-43 
fields set by OPEN, GEN-50t 
XLATE function 

BAS$XLATE, BAS-77 


Z 

ZERODIVIDE condition, PLI—7 
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